R/getFile.r

In AndreasFischer1985/quantqual: Software package for analyzing quantitative and qualitative data.

#' Function getFile
#' 
#' Downloads File from URL.
#' @param url A valid URL.
#' @param filename Character value specifying the path to save the downloaded file to.
#' @details Downdloads File from URL.
#' @keywords scraping
#' @export
#' @examples
#' getFile()

getFile <- function (url = "http://www.bamf.de/SharedDocs/Anlagen/DE/Publikationen/Flyer/flyer-schluesselzahlen-asyl-halbjahr-2018.pdf?__blob=publicationFile", 
    filename = NULL, mode = "wb", format = "pdf", ...) 
{
    if (is.null(filename)) 
        filename = paste0(gsub("[/?.:]", "", url), ".", format)
    message(paste0("Trying to get file from ", url))
    if (file.exists(url)) 
        return(readtext::readtext(url, ...)[, 2])
    download.file(url, filename, mode = mode)
    if (sum(grepl("[.](txt|pdf|doc|docx)", filename)) > 0) 
        return(readtext::readtext(filename, ...)[, 2])
}