R/get_example_sirius.R

In taxonomicallyinformedannotation/tima-r: Taxonomically Informed Metabolite Annotation

#' @title Get example sirius
#'
#' @description This function gets example SIRIUS annotations
#'
#' @include get_default_paths.R
#' @include get_file.R
#'
#' @param url URL where the example is accessible
#' @param export Path where to save the example
#'
#' @return NULL
#'
#' @examples NULL
get_example_sirius <-
  function(url = get_default_paths()$urls$examples$sirius,
           export = get_default_paths()$data$interim$annotations$example_sirius) {
    get_file(url = url$v5, export = export$v5)
    get_file(url = url$v6, export = export$v6)
    utils::unzip(
      zipfile = export$v6,
      exdir = dirname(export$v6),
      overwrite = TRUE
    )
  }