diff --git a/.Rbuildignore b/.Rbuildignore index 9affaf0..05f3305 100644 --- a/.Rbuildignore +++ b/.Rbuildignore @@ -10,3 +10,4 @@ ^LICENSE\.md$ ^\.github$ ^README\.Rmd$ +^rsconnect$ diff --git a/DESCRIPTION b/DESCRIPTION index d8c586d..0957c60 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -21,8 +21,10 @@ Imports: shinythemes, shinydashboard, shinycssloaders, - shinyWidgets - here + shinyWidgets, + here, + DT, + stringr Suggests: testthat (>= 3.0.0), rmarkdown, diff --git a/NAMESPACE b/NAMESPACE index e84681d..a641e96 100644 --- a/NAMESPACE +++ b/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) diff --git a/R/globals.R b/R/globals.R index 1805b4b..03dda6b 100644 --- a/R/globals.R +++ b/R/globals.R @@ -13,4 +13,14 @@ utils::globalVariables(c('sessionInfo', 'cohortSubjects', 'cohortId', 'cohortName', - 'cohortId')) \ No newline at end of file + 'cohortId', + 'age', + 'cdmSourceName', + 'indexYear', + 'sex', + 'targetCohort', + 'reactive', + 'renderUI', + 'tabPanel', + 'tagList', + 'tabsetPanel')) \ No newline at end of file diff --git a/R/runShinyAlopecia.R b/R/runShinyAlopecia.R index caaf0f8..d4c5b05 100644 --- a/R/runShinyAlopecia.R +++ b/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( diff --git a/man/runShinyAlopecia.Rd b/man/runShinyAlopecia.Rd index 0af2a71..b12a5ae 100644 --- a/man/runShinyAlopecia.Rd +++ b/man/runShinyAlopecia.Rd @@ -1,10 +1,13 @@ % Generated by roxygen2: do not edit by hand -% Please edit documentation in R/runShiny.R +% Please edit documentation in R/runShinyAlopecia.R \name{runShinyAlopecia} \alias{runShinyAlopecia} \title{`runAlopeciaShiny()` launches an app to visualise TreatmentPatterns results for the alopecia study.} \usage{ -runShinyAlopecia() +runShinyAlopecia(resultsFolder = here::here("results")) +} +\arguments{ +\item{resultsFolder}{Define the results folder path in character.} } \description{ `runAlopeciaShiny()` launches an app to visualise TreatmentPatterns results for the alopecia study.