R/run.R

In ikbentimkramer/cdphmd: Collaborative Data Project Housing Market Dashboard

#' Start Dashboard
#'
#' This function starts the dashboard.
#'
#' @param woondata The path to the woon data file
#'
#' @examples
#' \dontrun{
#' run()
#' }
#' @import shiny
#' @export
run  <- function(woondata = file.path(getwd(), "cache", "WoON2018_e_1.0.sav")) {
  shiny::addResourcePath('www', system.file('www', package = 'cdphmd'))

  ## Using imputed data
  imputed_data <- get_data("register_imputed")
  housing_data <- imputed_data
  housing_price <- imputed_data
  migration_data <- imputed_data
  filtered_migration <- get_data("filtered_migration")

  ## To use non-imputed data, remove the above lines and uncomment the
  ## following lines:
  # housing_data <- get_data("housing_data")
  # housing_price <- get_data("housing_price")

  mapdata <- get_data("municip_map")
  woon <- get_data("woon_translated", woonpath = woondata)
  shiny::shinyApp(
    main_ui(
      housing_data,
      housing_price,
      filtered_migration,
      woon),
    main_server(
      housing_data,
      housing_price,
      filtered_migration,
      mapdata,
      woon))
}