Rearrange app R files to fix shiny errors

.Rbuildignore

@@ -7,3 +7,5 @@
 ^data-raw$
 ^doc$
 ^Meta$
+^app\.R$
+^rsconnect$

DESCRIPTION

@@ -10,42 +10,44 @@ Authors@R:
 Description: stanpumpR is open-source software for pharmacokinetic / pharmacodynamic simulation. It is intended to make pharmacokinetics accessible to facilitate perioperative patient care, teaching, and research. stanpumpR may be freely downloaded and used without restriction for non-commericial purposes.
 License: MIT + file LICENSE
 Imports:
-  config,
-  cpp11,
-  data.table,
-  dplyr,
-  DT,
-  egg,
-  glue,
-  ggplot2  (>= 3.4),
-  ggpubr,
-  grid,
-  httr,
-  jpeg,
-  jsonlite,
-  lubridate,
-  mailR,
-  officer,
-  openxlsx,
-  png,
-  purrr,
-  R.utils,
-  randomcoloR,
-  RColorBrewer,
-  RcppEigen,
-  reactlog,
-  rhandsontable,
-  rvg,
-  shiny,
-  shinyBS,
-  shinydashboard,
-  shinyjs,
-  splines,
-  stringi,
-  tidyr,
-  tryCatchLog,
-  waiter,
-  yaml
+    config,
+    cpp11,
+    data.table,
+    dplyr,
+    DT,
+    egg,
+    glue,
+    ggplot2 (>= 3.4),
+    ggpubr,
+    grid,
+    httr,
+    jpeg,
+    jsonlite,
+    lubridate,
+    mailR,
+    officer,
+    openxlsx,
+    png,
+    purrr,
+    R.utils,
+    randomcoloR,
+    RColorBrewer,
+    RcppEigen,
+    reactlog,
+    rhandsontable,
+    rvg,
+    shiny,
+    shinyBS,
+    shinydashboard,
+    shinyjs,
+    splines,
+    stringi,
+    tidyr,
+    tryCatchLog,
+    waiter,
+    yaml,
+    pkgload,
+    magrittr
 Suggests:
     devtools,
     here,
@@ -58,8 +60,12 @@ Depends:
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Collate:
+  app.R
+  ui.R
+  server.R
+  global.R
   drugAndEventDefaults.R
   sendSlide.R
   CE.R

NAMESPACE

@@ -3,5 +3,6 @@
 export(getDrugDefaults)
 export(getDrugDefaultsGlobal)
 export(getDrugPK)
+export(run_app)
 export(simCpCe)
 export(simulateDrugsWithCovariates)

R/_disable_autoload.R

@@ -0,0 +1,3 @@
+# Disabling shiny autoload
+
+# See ?shiny::loadSupport for more information

R/app.R

@@ -0,0 +1,4 @@
+#' @export
+run_app <- function(...) {
+  shinyApp(ui, server, ...)
+}

ui.R → R/ui.R

@@ -1,6 +1,7 @@
 # UI for stanpumpR
 
 # UI ------------------------------------------------------
+
 ui <- function(request) {
   dashboardPage(
     dashboardHeader(

README.md

@@ -34,8 +34,8 @@ Near-term future developments in stanpumpR will include
 1. Install all package dependencies via `devtools::install_deps(dependencies = TRUE)`
 1. Make a copy of the file `config.yml.sample` as a new file named `config.yml`. This `config.yml` is a configuration file that stanpumpR needs. You can change the settings inside it.
 1. Run the app from the RStudio Console:
-- `library(shiny)`
-- `runApp()`
+- `pkgload::load_all()`
+- `run_app()`
 
 #### Running tests
 1. Install the devtools package via `install.packages("devtools")`.

app.R

@@ -0,0 +1,7 @@
+# Launch the ShinyApp (Do not remove this comment)
+# To deploy, run: rsconnect::deployApp()
+# Or use the blue button on top of this file
+
+pkgload::load_all(export_all = TRUE, helpers = FALSE, attach_testthat = FALSE)
+
+run_app() # add parameters here (if any)