R/package-glatosQAQC.R

In haydento/glatosQAQC: glatosQAQC shiny app to interactively check file validity of log files downloaded from Innovasea acoustic receivers

#' @docType package
#' @name glatosQAQC
#'
#' @import data.table shiny

"_PACKAGE"

# avoid R CMD check note
globalVariables(".")

# .onAttach("package", "glatosQAQC")

#package startup message
.onAttach <- function(libname, pkgname) { 
  vdat <- get_local_vdat_version(vdat_exe_path = NULL)
  min_vdat = "10.0.0"

  if(utils::compareVersion(vdat$version, min_vdat) >= 0){
    m <- paste0("glatosQAQC version ", utils::packageVersion("glatosQAQC"), " ('gen3 Lake Trout')", ", vdat.exe version found: ", vdat$version)
    m <- strwrap(m, width = getOption("width"))
    packageStartupMessage(paste0(m, collapse = "\n"))
  }
  
  if(utils::compareVersion(vdat$version, min_vdat) < 0){
    m <- paste0("glatosQAQC version ", utils::packageVersion("glatosQAQC"), " ('Lake Trout')", ", vdat.exe version found: ", vdat$version)
    m <- strwrap(m, width = getOption("width"))
    packageStartupMessage(" WARNING: VDAT NOT INSTALLED OR OUT OF DATE. glatosQAQC OUTPUT MAY BE INCORRECT!  UPDATE FATHOM BEFORE CONTINUING:")
    packageStartupMessage(paste0(m, collapse = "\n"))

  }

}