R/download_study_file.R

In wilsontom/metabolighteR: Interface to the 'Metabolights' REST API

#' Download Study File Contents
#'
#' Download the contents of a specified file from a public study
#'
#' @param study_id a character string of a valid MTBLS study id
#' @param filename a character of the full filename and extension to download
#' @return a `tibble` of file contents
#' @export

download_study_file <- function(study_id, filename)
{
  file_download <-
    httr::GET(paste0(
      getOption('BASE_URL'),
      '/studies/',
      study_id,
      '/download?file=',
      filename
    ))


  file_content <-
    httr::content(file_download, 'text') %>% textConnection() %>% readLines() %>%
    utils::read.delim(text = ., sep = '\t') %>% tibble::as_tibble()

  return(file_content)


}