mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-11 07:05:18 -05:00
33 lines
1.0 KiB
R
33 lines
1.0 KiB
R
library(shiny)
|
|
library(datasets)
|
|
|
|
# We tweak the "am" field to have nicer factor labels. Since this doesn't
|
|
# rely on any user inputs we can do this once at startup and then use the
|
|
# value throughout the lifetime of the application
|
|
mpgData <- mtcars
|
|
mpgData$am <- factor(mpgData$am, labels = c("Automatic", "Manual"))
|
|
|
|
|
|
# Define server logic required to plot various variables against mpg
|
|
shinyServer(function(input, output) {
|
|
|
|
# Compute the forumla text in a reactive function since it is
|
|
# shared by the output$caption and output$mpgPlot functions
|
|
formulaText <- reactive(function() {
|
|
paste("mpg ~", input$variable)
|
|
})
|
|
|
|
# Return the formula text for printing as a caption
|
|
output$caption <- reactiveText(function() {
|
|
formulaText()
|
|
})
|
|
|
|
# Generate a plot of the requested variable against mpg and only
|
|
# include outliers if requested
|
|
output$mpgPlot <- reactivePlot(function() {
|
|
boxplot(as.formula(formulaText()),
|
|
data = mpgData,
|
|
outline = input$outliers)
|
|
})
|
|
})
|