add mirai setup

dashboard.Rmd

@@ -40,6 +40,9 @@ library(tigris)
 library(caret)
 library(scales)
 library(billboarder)
+library(mirai)
+
+daemons(3)
 
 linuxdir <- "/home/dylan/Personal/Projects/Hurricane Normalization/"
 macdir <- "~/Desktop/Personal/Projects/Hurricane Normalization/"
@@ -95,8 +98,25 @@ storm_selection <- reactiveValues(
   is_table_selection = FALSE,
 )
 
+async_reqs <- reactiveValues(
+  hurdat_track = NULL,
+)
+
+loading_states <- reactiveValues(
+  hurdat_track = FALSE,
+  track_error = NULL,
+)
+
 onStop(function() {
   dbDisconnect(con)
+  
+  if(!is.null(async_reqs$track_request)) {
+    tryCatch({
+      async_reqs$track_request <- NULL
+    }, error = function(e) {
+      cat(e)
+    })
+  }
 })
 ```