R/recreateDatabase.R

In agpknitweardesign/festotuDbTools: Festotu database tools.

#' @export
recreateDatabase <- function(testDatabaseFolder = NULL){
  # Default to installed files
  if (is.null(testDatabaseFolder)) {
    testDatabaseFolder <- system.file("testDatabase", package = "festotuDbTools")
  } else {
    testDatabaseFolder <- normalizePath(testDatabaseFolder)
  }

  # drop/create the database
  system(
    paste(
      file.path(testDatabaseFolder, "executeSQLscript.sh"),
      file.path(testDatabaseFolder, "dropCreateDatabase.sql")
    )
  )

  # load test data
  loadSampleData(testDatabaseFolder)
}