R/asyr_test_if_zipped.R

Defines functions test_if_zippped

test_if_zippped<-function(u){
# test if the file is just a stram or zip directory
  tryCatch({
    unzip(u, list = T)
    return(TRUE)
  }, error = function(e) {
    return(FALSE)
  })
}
JARS3N/asyr documentation built on July 19, 2023, 9:19 p.m.