Add rpivotTable support

dkilfoyle · Oct 26, 2015 · 42f9bc8 · 42f9bc8
1 parent a716a7b
commit 42f9bc8
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/server.R b/server.R
@@ -4,6 +4,7 @@ require(knitr)
 require(brew)
 #library(rCharts)
 library(tabplot) #install_github("tabplot", username="mtennekes", subdir="pkg")
+require(rpivotTable) #install_github(c("ramnathv/htmlwidgets", "smartinsightsfromdata/rpivotTable"))
 
 # Define server logic required to summarize and view the selected dataset
 shinyServer(function(input, output, session) {
@@ -193,5 +194,9 @@ shinyServer(function(input, output, session) {
     else
       tableplot(getSelectedDF())
   })
+
+  output$pivotTable = renderRpivotTable({
+    rpivotTable(data=getSelectedDF()) #, onRefresh=htmlwidgets::JS("function(config) { Shiny.onInputChange('myPivotData', config); }"))
+  })
 
 })
diff --git a/ui.R b/ui.R
@@ -1,5 +1,7 @@
 library(shiny)
 library(shinyAce)
+require(rpivotTable) #install_github(c("ramnathv/htmlwidgets", "smartinsightsfromdata/rpivotTable"))
+
 source("R/dkdfinfo.r")
 source("R/dkgraph.r")
 source("R/dkutils.r")
@@ -98,6 +100,9 @@ shinyUI(pageWithSidebar(
            tabPanel("TabPlot",
             checkboxInput("limittabplot", label="Show selected variables only"),
             plotOutput("mytabplot")
+           ),
+           tabPanel("PivotTable",
+                    rpivotTableOutput("pivotTable")
            )
          )
       ),