github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Use simpler output format for 05_sliders

Browse Source
This commit is contained in:
Joe Cheng
2012-07-27 14:46:11 -07:00
parent 1b3cf52a17
commit c3e14933e2
1 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
inst/examples/05_sliders/server.R
View File

@@ -6,11 +6,6 @@ shinyServer(function(input, output) {
# Reactive function to compose a data frame containing all of the values
sliderValues <- reactive(function() {
# Show values using R's default print format
printValue <- function(value) {
capture.output(print(value))
}
# Compose data frame
data.frame(
Name = c("Integer",
@@ -18,11 +13,11 @@ shinyServer(function(input, output) {
"Range",
"Custom Format",
"Animation"),
Value = c(printValue(input$integer),
printValue(input$decimal),
printValue(input$range),
printValue(input$format),
printValue(input$animation)),
Value = as.character(c(input$integer,
input$decimal,
paste(input$range, collapse=' '),
input$format,
input$animation)),
stringsAsFactors=FALSE)
})