R/createDashboard.R

In creil94/FeatureSelectionDashboard:

pkg.globals <- new.env()
pkg.globals$data_path = NULL

createDashboard = function(path = "/", launch.browser = T) {
  set_data_path(path)

  shiny::shinyApp(ui, server, options = list(launch.browser = launch.browser))
}

set_data_path <- function(path) {
  pkg.globals$data_path <- path
}

get_data_path = function() {
  return(pkg.globals$data_path)
}