R/sf.autotest-package.r

In mdsumner/sf.autotest: Auto Test Simple Features

#' sf.autotest.
#'
#' @name sf.autotest
#' @docType package
NULL

#' generate a list of files for testing
#'
#' currently set to a small set known to pass with sf e138cb3a8b87a6ec69812941727beed51cd86dd3
#'
get_files <- function() {

  autotestfolder <- "~/gdal_coverage/autotest/ogr/data"
  allfiles <- list.files(autotestfolder, recursive = TRUE, full.names = TRUE)
  ##ss <- c(23L,   266L, 383L, 389L, 429L, 513L)
  ss <- seq_along(allfiles)
  allfiles[ss]

}

get_info <- function(x) {
  fi <- as.data.frame(file.info(x), stringsAsFactors = FALSE)
  fi$fullname <- x
  fi
}


try_read <- function(x) {
      message(x)
      x <- try(sf::st_read(x, quiet = TRUE), silent = TRUE)
      if (inherits(x, "try-error")) {
        x <- NULL
      }
      x
    }