R function to query CMS data via API

getCMS.R

getCMS <- function(distributionId,
                   columns = "*",
                   where = NULL,
                   limit = 0)
{
  require(magrittr)
  require(httr)
  require(jsonlite)
  root <- "https://data.cms.gov/provider-data/api/1/datastore/sql"
  if (is.null(where)) {
    query <- sprintf("[SELECT %s FROM %s][LIMIT %d]", columns, distributionId, limit)
  } else {
    query <- sprintf("[SELECT %s FROM %s][WHERE %s][LIMIT %d]", columns, distributionId, where, limit)
  }
  options <- "show_db_columns=true"
  url <- sprintf("%s?query=%s&%s", root, query, options) %>% URLencode()
  GET(url)$content %>% rawToChar() %>% fromJSON()
}