load a shapefile (no chathams)

viz/app.R

@@ -0,0 +1,19 @@
+library(shiny)
+library(leaflet)
+library(rgdal)
+
+sf <- readOGR(dsn="../shapefiles/sa20025WGSfil")
+crs <- leafletCRS(proj4def = sf@proj4string,
+                  bounds=sf@bbox)
+leaflet(sf) %>% addPolygons()
+
+# Define UI for application that draws a histogram
+ui <- fluidPage(
+)
+
+# Define server logic required to draw a histogram
+server <- function(input, output) {
+}
+
+# Run the application 
+shinyApp(ui = ui, server = server)