My favorites | Sign in
Project Home Downloads Wiki Issues Source
READ-ONLY: This project has been archived. For more information see this post.
Search
for
  Advanced search   Search tips   Subscriptions

Issue 24 attachment: server.R (376 bytes)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
## Diego de Castillo, February 2013
library(datasets)
library(googleVis)
library(shiny)

shinyServer(function(input, output) {
myOptions <- reactive({
list(
page=ifelse(input$pageable==TRUE,'enable','disable'),
pageSize=input$pagesize,
width=550
)
})
output$myTable <- renderGvis({
gvisTable(Population,options=myOptions())
})
})
Powered by Google Project Hosting