R/run_app.R

In ColinFay/backyard: A Web App for Easier Bookdown Collaboration

#' run the Shiny Application
#'
#' @inheritParams shiny::shinyApp
#' @param indexrmd the path to index.Rmd, if you want to launch from an already existing bookdown
#' @param home where should the directory/file selector widget start from. Default is "."
#' @param safe_mode wether to run on safe mode or not
#' @param port port to run the Shiny app on, default is 2811.
#' @param ... options to be passed to `shinyApp` options param
#'
#' @export
#' @importFrom shiny shinyApp
#'
#' @examples
#'
#' if (interactive()) {
#'
#'   run_book()
#'
#' }
#'
run_book <- function(indexrmd = NA, home = ".",
                    safe_mode = TRUE, markdown_only = TRUE,
                    port = 2811, enableBookmarking = NULL, ...) {
  opts <- list(...)
  opts$port <- port
  if (!is.na(indexrmd)){
    indexrmd <- normalizePath(indexrmd)
  }
  options("bkyrd" = indexrmd)
  options("bkyrdhome" = home)
  options("bkyrdsafe" = safe_mode)
  options("bkyrdmarkdown" = markdown_only)
  shinyApp(ui = app_ui(), server = app_server, options = opts)
}