R/get_md_datasets_list.R

In tonyfujs/mdlibtoddh:

#' get_md_datasets_list
#'
#' @param token character: Microdatalib API authentication token
#'
#' @return data.frame
#' @export
#'

get_md_datasets_list <- function(token) {
  resp <- mdlibconnect::get_survey_list(token = token)

  md_internal_id      <- purrr::map_chr(resp, 'id')
  md_internal_refid   <- purrr::map_chr(resp, "idno")
  md_internal_updated <- purrr::map_chr(resp, 'changed')

  # Clean date format
  md_internal_updated <- purrr::map_chr(md_internal_updated, clean_date)

  out <- data.frame(md_internal_id, md_internal_refid, md_internal_updated, stringsAsFactors = FALSE)

  return(out)
}