add in zoom functionality when sample is selected

romunov · Oct 7, 2017 · 7873368 · 7873368
1 parent 449bd1f
commit 7873368
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/leaflet.R b/leaflet.R
@@ -8,6 +8,15 @@ output$map <- renderLeaflet({
     setView(lng = 14.815333, lat = 46.119944, zoom = 8)
 })
 
+observeEvent(input$uploadSampleData_row_last_clicked, {
+  x <- inputFileSamples()
+  selectedRow <- input$uploadSampleData_row_last_clicked
+
+  leafletProxy('map') %>%
+    setView(lng = x[selectedRow, 'lng'], lat = x[selectedRow, 'lat'], zoom = 10)
+
+}, ignoreInit = TRUE)
+
 # Add markers and lines for selected animals to map
 observe({
   PS <- PS()

diff --git a/view_data.R b/view_data.R
@@ -1,6 +1,6 @@
 output$uploadSampleData <- renderDataTable({
   x <- inputFileSamples()
-  DT::datatable(data = x, filter = "top", options = list(pageLength = 15))
+  DT::datatable(data = x, filter = "top", options = list(pageLength = 15), selection = 'single')
 })
 
 observe({