R/tcplConfReset.R

#-------------------------------------------------------------------------------
# tcplConfReset: Generate default config file
#-------------------------------------------------------------------------------

#' @rdname config_funcs
#' @export

tcplConfReset <- function () {
  
  conf_file <- .getConfFile()
  
  cat("###################################################################",
      "",
      "## Detailed information about this file available in the help file for",
      "## tcplConf (?tcplConf).",
      "",
      "DRVR <- \"tcplLite\"",
      "HOST <- NA_character_",
      "USER <- NA_character_",
      "PASS <- NA_character_",
      "DB   <- file.path(system.file(package = \"tcpl\"),",
      "                  \"csv\")",
      "",
      "###################################################################",
      sep = "\n",
      file = file.path(conf_file),
      append = FALSE)
  
}

#-------------------------------------------------------------------------------
USEPA/CompTox-ToxCast-tcpl documentation built on May 5, 2019, 4:48 p.m.