inst/content/plumber-api/plumber.R

In sol-eng/accesstocare: Example content of Access to Care project

library(plumber)
library(accesstocare)

#* Get the state's summarized information
#* @get /summary
#* @param state Two letter abbreviation of the state
function(state = "MS") {
  st_name <- toupper(state)
  state_data <- us_states[us_states$state == st_name, ]
  state_data
}

#* Prediction of number of hospitals based on a provided population number
#* @get /model
#* @param population:numeric Number of people living in a given county
function(population = 70000) {
  pop <- data.frame(population = as.numeric(population))
  pred <- predict(us_atc_model, newdata = pop, interval = "prediction")
  as.data.frame(pred)
}

#* Prediction of number of hospitals based on population
#* @get /state
#* @param state Two letter abbreviation of the state
function(state = "MS") {
  st_name <- toupper(state)
  st_cols <- c("county_name", "state", "hospitals", "population", "pred_status")
  us_counties[us_counties$state == st_name, st_cols]
}