Load from rds instead of csv

MedicalCentres/app.R

@@ -1,14 +1,8 @@
 library(shiny)
 library(leaflet)
-library(janitor)
 library(dplyr)
-library(readr)
 
-Geo2017 <- clean_names(read_csv("../data/AllDHBsGeocoded.csv"), case = "snake") %>%
-    select(-facility_opening_date) %>%
-    mutate(dhb_name = ifelse(is.na(dhb_name), "Missing", dhb_name),
-           health_facility_code = ifelse(is.na(health_facility_code),
-                                         "Missing", health_facility_code))
+Geo2017 <- readRDS("Geo2017.rds")
 
 ui <- fillPage(
     leafletOutput(outputId = "medmap", height = "100%")