R/shiny_data_interface.R

In xaviermiles/portalLite: Generic shiny app configurable through JSON files.

fetch_data <- function(indicator, group_name) {
  data_service_name <- get_indicator_parameter("data_service", indicator, group_name)
  method <- JSON_OPTIONS$get_data_service_function(data_service_name)
  return(method(indicator, group_name))
}