check passing locally

.Rbuildignore

@@ -10,3 +10,4 @@
 ^LICENSE\.md$
 ^\.github$
 ^README\.Rmd$
+^rsconnect$

DESCRIPTION

@@ -21,8 +21,10 @@ Imports:
     shinythemes,
     shinydashboard,
     shinycssloaders,
-    shinyWidgets
-    here
+    shinyWidgets,
+    here,
+    DT,
+    stringr
 Suggests: 
     testthat (>= 3.0.0),
     rmarkdown,

NAMESPACE

@@ -8,7 +8,6 @@ export(runTreatmentPatterns)
 import(TreatmentPatterns)
 import(dplyr)
 import(here)
-import(shiny)
 import(shinyWidgets)
 import(shinycssloaders)
 import(shinydashboard)
@@ -20,6 +19,12 @@ importFrom(CohortGenerator,createCohortTables)
 importFrom(CohortGenerator,generateCohortSet)
 importFrom(CohortGenerator,getCohortCounts)
 importFrom(CohortGenerator,getCohortTableNames)
+importFrom(DT,dataTableOutput)
+importFrom(DT,renderDataTable)
 importFrom(magrittr,"%>%")
 importFrom(readr,read_csv)
 importFrom(readr,write_csv)
+importFrom(shiny,h4)
+importFrom(shiny,shinyApp)
+importFrom(shiny,uiOutput)
+importFrom(stringr,str_detect)

R/globals.R

@@ -13,4 +13,14 @@ utils::globalVariables(c('sessionInfo',
                          'cohortSubjects',
                          'cohortId',
                          'cohortName',
-                         'cohortId'))
+                         'cohortId',
+                         'age',
+                         'cdmSourceName',
+                         'indexYear',
+                         'sex',
+                         'targetCohort',
+                         'reactive',
+                         'renderUI',
+                         'tabPanel',
+                         'tagList',
+                         'tabsetPanel'))

R/runShinyAlopecia.R

@@ -1,7 +1,12 @@
 #' `runAlopeciaShiny()` launches an app to visualise TreatmentPatterns results for the alopecia study.
 #' 
-#' @import shiny shinythemes shinydashboard shinycssloaders shinyWidgets TreatmentPatterns here
+#' @param resultsFolder Define the results folder path in character.
+#' 
+#' @import shinythemes shinydashboard shinycssloaders shinyWidgets TreatmentPatterns here
 #' @importFrom readr read_csv
+#' @importFrom DT dataTableOutput renderDataTable
+#' @importFrom stringr str_detect
+#' @importFrom shiny shinyApp h4 uiOutput
 #' @export
 runShinyAlopecia <- function(resultsFolder = here::here("results")) {
   ui <- dashboardPage(