R/get_fields.R

In NateByers/formstackr: A tidy interface to Formstack API

# key <- Sys.getenv("FORMSTACK_KEY")
# form_ids <- get_forms(key) %>%
#   dplyr::filter(folder == "79048") %>%
#   dplyr::pull(form_id)



#' @export
get_fields <- function(key, form_ids = NA) {

  if(is.na(form_ids[1])) {
    forms <- get_forms(key)
    form_ids <- forms$form_id
  }

  fields <- lapply(form_ids, get_form_fields, key = key) %>%
    dplyr::bind_rows()

  fields
}

get_form_fields <- function(form_id, key) {
  # form_id <- forms$form_id[1]
  url_address <- paste0("https://www.formstack.com/api/v2/form/",
                        form_id, "/field.json")


  fields <- get_formstack_endpoint(url_address, key)

  fields <- httr::content(fields)

  fields <- lapply(fields, collapse_to_data_frame)

  fields <- dplyr::bind_rows(fields)

  columns <- colnames(fields)

  fields <- fields %>%
    dplyr::mutate(form_id = form_id) %>%
    dplyr::select(!!c("form_id", columns)) %>%
    dplyr::rename(field_id = id)

  fields
}