R/list_surveys.R

Defines functions list_surveys

Documented in list_surveys

#' List surveys on the license, arrange by search term
#'
#' @return
#' @export
#' @import sodium qualtRics tibble dplyr httr
#'
#' @examples
list_surveys <- function(search = "") {

  if(Sys.getenv("QUALTRICS_API_KEY") == "") {

    register_options()

  }

  req <- httr::VERB("GET", paste0(Sys.getenv("QUALTRICS_ROOT_URL"), "/API/v3/surveys"),
                    httr::add_headers(headers())) %>%
    httr::content()

  res <- req$result$elements %>% bind_rows

  if(search == "") {

    return(res)

  } else {

    dplyr::select(
      dplyr::arrange(
        dplyr::mutate(res,
          sd = stringdist::stringdist(tolower(search), tolower(name),
            weight = c(i = 0.01, d = 1, s = 0.9, t = 1))), sd), -sd)

  }

}
blueprint-ade/bputils documentation built on May 29, 2019, 5:57 p.m.