R/organize.R

.onAttach <- function(libname, pkgname){
  .success <- track_autodetect(names(formatsAvail))
}

list_formats <- function(x) {
  files <- list.files(system.file("examples", package = "readhyd"),
                      recursive = TRUE, full.names = TRUE)
  hasHeader <- !grepl("/noheader/", files)


  format <- sub("_.*", "", basename(files))
  format[!hasHeader] <- NA

  return(data.frame(file = files, format = format, hasHeader,
                    stringsAsFactors = FALSE))
}
mundl/readhyd documentation built on May 23, 2019, 8:22 a.m.