use detailed input data for rehab times/centres

TODO: apply them to the popups in rehab map depending on selected base layer

Author: RWParsons

3_load_data.R

@@ -1,20 +1,53 @@
-df_locations <- read.csv("input/QLD_locations_with_RSQ_times_20220407.csv") %>%
+df_locations <- read.csv("input/QLD_locations_with_RSQ_times_20220411.csv") %>%
   mutate(
     popup=paste0(
       "<b>Location: </b>", location, "<br>",
       "<b>Acute care destination: </b>", acute_care_centre, "<br>",
       "<b>Time to acute care (minutes): </b>", acute_time, "<br>",
-      "<b>Rehab care destination: </b>", rehab_centre, "<br>",
-      "<b>Time to rehab care (minutes): </b>", rehab_time, "<br>"
+      "<b>Initial rehab care destination: </b>", gold_rehab_centre, "<br>",
+      "<b>Step-down rehab care destination: </b>", silver_rehab_centre, "<br>",
+      "<b>Average time to rehab care (minutes): </b>", round(rehab_time), "<br>"
     ),
     popup_rehab=paste0(
       "<b>Location: </b>", location, "<br>",
-      "<b>Silver rehab care destination: </b>", rehab_centre, "<br>",
-      "<b>Time to silver rehab care (minutes): </b>", rehab_time, "<br>"
+      "<b>Initial rehab care destination: </b>", gold_rehab_centre, "<br>",
+      "<b>Step-down rehab care destination: </b>", silver_rehab_centre, "<br>",
+      "<b>Average time to rehab care (minutes): </b>", round(rehab_time), "<br>"
     )
   )
 
 
+df_rehab_map_locations <- read.csv("input/all_rehab_time.csv") %>%
+  mutate(across(ends_with("time"), round)) %>%
+  mutate(
+    popup_none=paste0(
+      "<b>Location: </b>", town_name, "<br>",
+      "<b>Initial rehab care destination: </b>", gold_rehab_centre, "<br>",
+      "<b>Step-down rehab care destination: </b>", silver_rehab_centre, "<br>",
+      "<b>Average time to rehab care (minutes): </b>", round((silver_time + gold_time)/2), "<br>"
+    ),
+    popup_silver=paste0(
+      "<b>Location: </b>", town_name, "<br>",
+      "<b>Silver rehab care destination: </b>", silver_rehab_centre, "<br>",
+      "<b>Time to silver rehab care (minutes): </b>", silver_time, "<br>"
+    ),
+    popup_gold=paste0(
+      "<b>Location: </b>", town_name, "<br>",
+      "<b>Gold rehab care destination: </b>", gold_rehab_centre, "<br>",
+      "<b>Time to gold rehab care (minutes): </b>", gold_time, "<br>"
+    ),
+    popup_future_gold=paste0(
+      "<b>Location: </b>", town_name, "<br>",
+      "<b>Future gold rehab care destination: </b>", future_gold_rehab_centre, "<br>",
+      "<b>Time to future gold rehab care (minutes): </b>", future_gold_time, "<br>"
+    ),
+    popup_platinum=paste0(
+      "<b>Location: </b>", town_name, "<br>",
+      "<b>Platinum rehab care destination: </b>", platinum_rehab_centre, "<br>",
+      "<b>Time to platinum rehab care (minutes): </b>", platinum_time, "<br>"
+    )
+  )
+
 df_centres <- read.csv("input/centres.csv") 
 names(df_centres) <- c("centre_name", "address", "x", "y")
 df_centres <- df_centres %>%