R/fis_download_zipfile.R

In mvbloois/faiR: Collection Of Farminform Functions

#' Download fiSCRIPT zipfile from ftp.pharmo.nl
#'
#' Blablabla
#'
#' @param version character variable
#' @param clientname character variable
#'
#' @return file variable
#'
#' @examples
#' ## fis_download_zipfile(version = "202005", clientname = "fi_basis")
#'
#' @export
fis_download_zipfile <- function(version = "202007", clientname = "Daiichi") {
  usethis::use_directory("data")
  filename <- here::here("data", paste0(clientname, "_", version, ".zip"))

  if (clientname == "Daiichi") {
    clientname <- "Daichi"
  }

  url = paste0("ftp://farminform:AlweerNieuw2017!@ftp.pharmo.nl/output/FI_output_",
               version, "/", clientname, "_", version, ".zip")
  utils::download.file(url = url,
                destfile = filename)
  utils::unzip(filename, exdir = here::here("data"))
}