R/global.R

In adamjohndbenitez/navify: Route Recommender

require(magrittr)

workspace <- 'C:\\Users\\Adam\\Documents\\CIT-U\\Masters of Computer Science\\Capstone - Thesis\\Navify - Traffixer\\Navify\\'
setwd(workspace)

# Define the fields we want to save from the form
fields <- c("name", "r_num_years")
fieldsRoute <- c("location", "destination")
fieldsFactors <- c("street_id", "month", "day", "vehicles", "lanes", "zones", "events")

databaseNavify <- "navifactors"

base::options(
  mysql = base::list(
    "host" = "127.0.0.1",
    "port" = 3306,
    "user" = "root",
    "password" = ""
  )
)

# If you modify global options() or graphics par(), save the old values and reset when you’re done
old <- options(stringsAsFactors = FALSE)
on.exit(options(old), add = TRUE)

dfsEnv <- new.env(hash = TRUE, parent = parent.frame())