R/get_file.R

In einarhjorleifsson/readsam: reads sam inputs and outputs

#' @title get_file
#'
#' @description Just a description
#'
#' @param URL URL path
#' @param File Name of the file
get_file <- function(URL, File)
{
  temporaryFile <- tempfile()
  utils::download.file(paste(URL, File, sep = "/"),
                       destfile = temporaryFile,
                       method = "curl",
                       quiet = T)
  return(temporaryFile)
}