R/downloadGIS.R

In p-schaefer/RandGRASSGIS:

#' Download GIS.
#' Downloads and extracts GIS files
#' @examples
#' downloadGIS()
#' @export

downloadGIS<-function() {
  print("Downloading...")
  download.file(url="https://github.com/p-schaefer/OSGeo4W64/archive/master.zip",
                destfile=gsub("/","\\",(paste0(.libPaths(),"/RandGRASSGIS/OSGeo4W64.zip")),fixed=T))
  print("Extracting...")
  unzip(zipfile=gsub("/","/",(paste0(.libPaths(),"/RandGRASSGIS/OSGeo4W64.zip")),fixed=T),
        exdir=gsub("/","/",(paste0(.libPaths(),"/RandGRASSGIS")),fixed=T))
  file.rename(from=gsub("/","/",(paste0(.libPaths(),"/RandGRASSGIS/OSGeo4W64-master")),fixed=T),
             to=gsub("/","/",(paste0(.libPaths(),"/RandGRASSGIS/OSGeo4W64")),fixed=T))
  print("Done")
}