Fix error

MedicalCentres/app.R

@@ -182,7 +182,8 @@ server <- function(input, output, session) {
         if (input$overlay %in% loaded.overlays) {
           showGroup(gl, input$overlay)
         } else {
-          dhb2015 <- readRDS("dhb2015.rds") %>% subset(dhb2015$DHB2015_Co != "99")
+          dhb2015 <- readRDS("dhb2015.rds") 
+          dhb2015 <- subset(dhb2015, dhb2015$DHB2015_Co != "99")
           addPolygons(gl, data = dhb2015, fill = FALSE, 
                                           color = "#000000", weight = 2,
                                           group = input$overlay)