Merge pull request #8 from blmoore/mobile-css

try out server-side processing
blmoore · May 27, 2015 · c21b32c · c21b32c
2 parents 1f67e8c + 407b220
commit c21b32c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/server.R b/server.R
@@ -134,8 +134,9 @@ shinyServer(function(input, output, session) {
   })
 
   output$table <- DT::renderDataTable({
-    DT::datatable(clean, filter = 'top', options = list(
-      pageLength = 10, autoWidth = TRUE))
+    action <- dataTableAjax(session, clean)
+    DT::datatable(clean, filter = 'top', server=T, options = list(
+      pageLength = 10, autoWidth = TRUE, ajax=list(url=action)))
   })
 
 })
diff --git a/ui.R b/ui.R
@@ -41,8 +41,8 @@ $( 'div#mymap' ).append(spinner.el);"),
         selectInput("color", "Colour by:", 
           choices=c("None", "Severity", "Casualties", "Time", "Vehicles", "Speed limit")),
 
-        sliderInput("alpha", "Opacity:",
-          min=0, max=1, value=.4, step=.025, ticks=T),
+        sliderInput("alpha", label="Opacity:",
+          min=0, max=1, value=0.4, step=.025, ticks=T),
 
         hr(),
         h4("Summary plots"),