Как извлечь файл KML из загруженного файла GZIP с помощью R? - PullRequest
Новая
       21

Как извлечь файл KML из загруженного файла GZIP с помощью R?

0 голосов
/ 06 сентября 2018

Я пытаюсь скачать zip-файл из Интернета, а затем извлечь один файл kml внутри. Я пробовал несколько различных утилит для распаковки и извлечения, но я не уверен, как получить kml, с которым я могу начать работать (в пакете sf). 

zipFileName <- "http://satepsanone.nesdis.noaa.gov/pub/volcano/FIRE/HMS_ARCHIVE/2010/KML/smoke20100101.kml.gz"
  smokeFileName <- "smoke20100101.kml"

  temp <- tempfile()
  download.file(url = zipFileName, destfile = temp)



  untar(tarfile = temp, files = smokeFileName)
  # Error in getOctD(x, offset, len) : invalid octal digit


  untar(tarfile = zipFileName, files = smokeFileName)
  # Error in gzfile(path.expand(tarfile), "rb") : cannot open the connection
  # In addition: Warning message:
  #   In gzfile(path.expand(tarfile), "rb") :
  #   cannot open compressed file 'http://satepsanone.nesdis.noaa.gov/pub/volcano/FIRE/HMS_ARCHIVE/2010/KML/smoke20100101.kml.gz', probable reason 'Invalid argument'

  unz(temp, smokeFileName)
  # A connection with                                                                                                     
  # description "C:\\Users\\jvargo\\AppData\\Local\\Temp\\RtmpemFaXC\\file33f82dd83714:smoke20100101.kml"
  # class       "unz"                                                                                    
  # mode        "r"                                                                                      
  # text        "text"                                                                                   
  # opened      "closed"                                                                                 
  # can read    "yes"                                                                                    
  # can write   "yes"

1 Ответ

0 голосов
/ 07 сентября 2018

адаптировано с https://community.rstudio.com/t/download-gz-file-and-extract-kml/13783

library(R.utils)

 gzFileURL <- "http://satepsanone.nesdis.noaa.gov/pub/volcano/FIRE/HMS_ARCHIVE/2010/KML/smoke20100101.kml.gz") 

  smokeZipName <-"smoke20100101.kml.gz"
  smokeFileName <- "smoke20100101.kml"

  directory <- tempdir()

  setwd(directory)

  temp <- tempfile(pattern = "", fileext = ".kml.gz")

  download.file(url = gzFileURL, destfile = temp)

  gunzip(temp)

  kmlFile <- list.files(tempdir(), pattern = ".kml")

  layers <- st_layers(kmlFile)$name
...