R/get_study_title.R

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

#' Get Study Title
#'
#' Retrieve the full title of the study
#'
#' @param study_id A character string of a valid MTBLS study id
#' @return a character string of the study title
#' @export
#' @examples
#' get_study_title('MTBLS375')

get_study_title <- function(study_id)
{
  study_title <-
    httr::GET(
      paste0(getOption('BASE_URL'),
             '/studies/',
             study_id,
             '/title')
    )

  study_title_parse <- study_title %>% httr::content('parsed')

  return(study_title_parse$title)

}