diff --git a/R/psa_shiny.R b/R/psa_shiny.R index 7fca783..d8b2d48 100755 --- a/R/psa_shiny.R +++ b/R/psa_shiny.R @@ -1,13 +1,19 @@ #' Run the PSA shiny application. #' +#' @param ... other parameters passed to [shiny::runApp]. #' @export -psa_shiny <- function() { - shiny::runApp(paste0(find.package(package='psa'), '/shiny/psa')) +psa_shiny <- function(...) { + shiny::runApp( + appDir = paste0(find.package(package='psa'), '/shiny/psa'), + ...) } #' Run the PSA simulation shiny application. #' +#' @param ... other parameters passed to [shiny::runApp]. #' @export -psa_simulation_shiny <- function() { - shiny::runApp(paste0(find.package(package='psa'), '/shiny/psa_simulation')) +psa_simulation_shiny <- function(...) { + shiny::runApp( + appDir = paste0(find.package(package='psa'), '/shiny/psa_simulation'), + ...) } diff --git a/README.Rmd b/README.Rmd index 2670edb..a277816 100755 --- a/README.Rmd +++ b/README.Rmd @@ -44,7 +44,7 @@ ggplot(psa_citations, aes(x = Year, y = Citations, color = Search_Term)) + ## Slides -[Click here](Slides/Intro_PSA.pdf) for latest version slides introducing propensity score analysis. +The latest version slides introducing propensity score analysis: [PDF](Slides/Intro_PSA.pdf) or [HTML](Slides/Intro_PSA.html).