From a181a2816c038e3b28bde0fea6b3696d80d88e4e Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Thu, 14 Mar 2024 09:42:44 +0100
Subject: [PATCH] deploy_shiny() has moved to a different package

---
 NAMESPACE           |  1 -
 NEWS.md             |  4 ++--
 R/shiny_cast.R      | 31 -------------------------------
 man/deploy_shiny.Rd | 33 ---------------------------------
 4 files changed, 2 insertions(+), 67 deletions(-)
 delete mode 100644 man/deploy_shiny.Rd

diff --git a/NAMESPACE b/NAMESPACE
index d2065ea..072788d 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,7 +3,6 @@
 export(REDCap_split)
 export(clean_redcap_name)
 export(d2w)
-export(deploy_shiny)
 export(ds2dd)
 export(ds2dd_detailed)
 export(easy_redcap)
diff --git a/NEWS.md b/NEWS.md
index b23b671..c569de6 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,8 +1,8 @@
-# REDCapCAST 24.3.1
+# REDCapCAST 24.3.1 - in development
 
 ### Documentation and more
 
-* Dependencies: In order to deploy `shiny_cast()` with `shinylive`, I need to remove `curl` as a dependency. To accomplish this, the `shiny_deploy()` helper functions has been moved to the package [`pacakge.aid`](https://github.com/agdamsbo/package.aid). This is for a rainy day: https://r-wasm.github.io/rwasm/.
+* Dependencies: In order to deploy `shiny_cast()` with `shinylive`, I need to remove `curl` as a dependency. To accomplish this, the `shiny_deploy()` helper functions has been moved to the package [`pacakge.aid`](https://github.com/agdamsbo/package.aid). This is for a rainy day: https://r-wasm.github.io/rwasm/. The whole shiny part may be migrated to its own project to try to separate things and be easy on dependencies. Time will tell.
 
 
 # REDCapCAST 24.2.1
diff --git a/R/shiny_cast.R b/R/shiny_cast.R
index 5f66c93..be827b1 100644
--- a/R/shiny_cast.R
+++ b/R/shiny_cast.R
@@ -34,34 +34,3 @@ shiny_cast <- function() {
   )
 }
 
-#' Deploy the Shiny app with rsconnect to shinyapps.io
-#'
-#' @description
-#' This is really just a simple wrapper
-#'
-#' @param path app folder path
-#' @param name.app name of deployed app
-#' @param name.token stored name of token
-#' @param name.secret stored name of secret
-#'
-#' @return deploy
-#' @export
-#'
-#' @examples
-#' # deploy_shiny()
-#'
-deploy_shiny <- function(path = here::here("app/"),
-                         account.name,
-                         name.app = "shiny_cast",
-                         name.token,
-                         name.secret) {
-  # Connecting
-  rsconnect::setAccountInfo(
-    name = account.name,
-    token = keyring::key_get(service = name.token),
-    secret = keyring::key_get(service = name.secret)
-  )
-
-  # Deploying
-  rsconnect::deployApp(appDir = path, lint = TRUE, appName = name.app, )
-}
diff --git a/man/deploy_shiny.Rd b/man/deploy_shiny.Rd
deleted file mode 100644
index d92d7a9..0000000
--- a/man/deploy_shiny.Rd
+++ /dev/null
@@ -1,33 +0,0 @@
-% Generated by roxygen2: do not edit by hand
-% Please edit documentation in R/shiny_cast.R
-\name{deploy_shiny}
-\alias{deploy_shiny}
-\title{Deploy the Shiny app with rsconnect to shinyapps.io}
-\usage{
-deploy_shiny(
-  path = here::here("app/"),
-  account.name,
-  name.app = "shiny_cast",
-  name.token,
-  name.secret
-)
-}
-\arguments{
-\item{path}{app folder path}
-
-\item{name.app}{name of deployed app}
-
-\item{name.token}{stored name of token}
-
-\item{name.secret}{stored name of secret}
-}
-\value{
-deploy
-}
-\description{
-This is really just a simple wrapper
-}
-\examples{
-# deploy_shiny()
-
-}