From bae5b6d2ec0aafae847b8e0db0e7df99a0e7fa85 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 25 Nov 2024 09:13:10 +0100
Subject: [PATCH] missed loading REDCapCAST library or reference function in
 ui.R - bummer

---
 .../shinyapps.io/agdamsbo/redcapcast-latest.dcf        | 10 ++++++++++
 .../rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf     |  2 +-
 inst/shiny-examples/casting/server.R                   |  1 +
 inst/shiny-examples/casting/ui.R                       |  3 ++-
 4 files changed, 14 insertions(+), 2 deletions(-)
 create mode 100644 inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast-latest.dcf

diff --git a/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast-latest.dcf b/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast-latest.dcf
new file mode 100644
index 0000000..e4abd3e
--- /dev/null
+++ b/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast-latest.dcf
@@ -0,0 +1,10 @@
+name: redcapcast-latest
+title:
+username: agdamsbo
+account: agdamsbo
+server: shinyapps.io
+hostUrl: https://api.shinyapps.io/v1
+appId: 13441620
+bundleId: 9412096
+url: https://agdamsbo.shinyapps.io/redcapcast-latest/
+version: 1
diff --git a/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf b/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf
index 0e6de31..f3ee1f6 100644
--- a/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf
+++ b/inst/shiny-examples/casting/rsconnect/shinyapps.io/agdamsbo/redcapcast.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 11351429
-bundleId: 9402312
+bundleId: 9412139
 url: https://agdamsbo.shinyapps.io/redcapcast/
 version: 1
diff --git a/inst/shiny-examples/casting/server.R b/inst/shiny-examples/casting/server.R
index 0deb29c..2618bfa 100644
--- a/inst/shiny-examples/casting/server.R
+++ b/inst/shiny-examples/casting/server.R
@@ -8,6 +8,7 @@ library(dplyr)
 library(devtools)
 if (!requireNamespace("REDCapCAST")) {
   devtools::install_github("agdamsbo/REDCapCAST", quiet = TRUE, upgrade = "never")
+  # install.packages("REDCapCAST")
 }
 library(REDCapCAST)
 
diff --git a/inst/shiny-examples/casting/ui.R b/inst/shiny-examples/casting/ui.R
index 2a293ff..8fd747f 100644
--- a/inst/shiny-examples/casting/ui.R
+++ b/inst/shiny-examples/casting/ui.R
@@ -1,6 +1,7 @@
+library(REDCapCAST)
 ui <-
   bslib::page(
     theme = bslib::bs_theme(preset = "united"),
     title = "REDCap database creator",
-    nav_bar_page()
+    REDCapCAST::nav_bar_page()
   )