R/globaldata.R

In chintanp/trafficdatacollector: A shiny application

GlobalModule <- function(input, output, session) {
  stash = reactiveValues()
  #####################
  # Database connection
  #####################
  if (Sys.info()['sysname'] == "Windows") {
    # on windows the driver is different than linux
    stash$conn <- pool::dbPool(
      odbc::odbc(),
      Driver = "SQL Server",
      Server = Sys.getenv('DB_HOST'),
      Database = Sys.getenv('DB_NAME'),
      UID      = Sys.getenv('DB_USERNAME'),
      PWD      = Sys.getenv('DB_PASSWORD')
    )
  } else {
    stash$conn <- pool::dbPool(
      odbc::odbc(),
      Driver = "SQLServer",
      Server = Sys.getenv('DB_HOST'),
      Database = Sys.getenv('DB_NAME'),
      UID      = Sys.getenv('DB_USERNAME'),
      PWD      = Sys.getenv('DB_PASSWORD')
    )
  }
  
  stash$male_helmet_count <- 0
  stash$female_helmet_count <- 0
  stash$male_no_helmet_count <- 0
  stash$female_no_helmet_count <- 0
  
  stash$north_left_count <- 0
  stash$north_down_count <- 0
  stash$north_right_count <- 0
  
  stash$east_up_count <- 0
  stash$east_left_count <- 0
  stash$east_down_count <- 0
  
  stash$south_left_count <- 0
  stash$south_up_count <- 0
  stash$south_right_count <- 0
  
  stash$west_up_count <- 0
  stash$west_right_count <- 0
  stash$west_down_count <- 0

  stash$name <- ''
  stash$location <- ''
  stash$time <- ''
  stash$date <- ''
  stash$notes <- ''
  stash$weather <- ''
  stash$temperature <- ''
  stash$notes <- ''
  
  
  # stash$conn <-  RODBC::odbcDriverConnect(glue::glue("Driver=ODBC Driver 17 for SQL Server;Server={Sys.getenv('DB_HOST')}; Database={Sys.getenv('DB_NAME')};Uid={Sys.getenv('DB_USERNAME')}; Pwd={Sys.getenv('DB_PASSWORD')}"))
  return (
    # list(
    #   Get_dbconn = reactive(stash$conn),
    #   get_male_hc = reactive(stash$male_helmet_count),
    #   get_female_hc = reactive(stash$female_helmet_count),
    #   get_male_nohc = reactive(stash$male_no_helmet_count),
    #   get_female_nohc = reactive(stash$female_no_helmet_count)
    # )
    list(stash = stash)
  )
}