mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-07 21:26:08 -05:00
d7391b19bc
* - Convert all example apps to single file app.R file - Make relevant updates to Readmes to match up with app.R structure - Add color to plots (RStudio blue) - In 04_mpg example: Show outliers by default, as opposed to hide, since this is more routine - In 06_tabsets and 08_html examples: Don't name random data vector "data" - Add extensive comments to app.R files and use consistent formatting of comments across examples - In 09_upload example: Use req() to check for NULL entry * add news entry summarizing changes * use true RStudio blue, #75AADB * Conver shinyApp calls at the end to drop argument name in examples 3-11, except for the custom HTML example. Kept them in for examples 1&2 for completeness in first exporuse to function. * Pull news items that got added before this PR was merged * Update comment for shinyApp function -- it creates an app object, doesn't run the app
48 lines
1.3 KiB
R
48 lines
1.3 KiB
R
library(shiny)
|
|
|
|
# Define server logic for random distribution app ----
|
|
server <- function(input, output) {
|
|
|
|
# Reactive expression to generate the requested distribution ----
|
|
# This is called whenever the inputs change. The output functions
|
|
# defined below then use the value computed from this expression
|
|
d <- reactive({
|
|
dist <- switch(input$dist,
|
|
norm = rnorm,
|
|
unif = runif,
|
|
lnorm = rlnorm,
|
|
exp = rexp,
|
|
rnorm)
|
|
|
|
dist(input$n)
|
|
})
|
|
|
|
# Generate a plot of the data ----
|
|
# Also uses the inputs to build the plot label. Note that the
|
|
# dependencies on the inputs and the data reactive expression are
|
|
# both tracked, and all expressions are called in the sequence
|
|
# implied by the dependency graph.
|
|
output$plot <- renderPlot({
|
|
dist <- input$dist
|
|
n <- input$n
|
|
|
|
hist(d(),
|
|
main = paste("r", dist, "(", n, ")", sep = ""),
|
|
col = "#75AADB", border = "white")
|
|
})
|
|
|
|
# Generate a summary of the data ----
|
|
output$summary <- renderPrint({
|
|
summary(d())
|
|
})
|
|
|
|
# Generate an HTML table view of the head of the data ----
|
|
output$table <- renderTable({
|
|
head(data.frame(x = d()))
|
|
})
|
|
|
|
}
|
|
|
|
# Create Shiny app ----
|
|
shinyApp(ui = htmlTemplate("www/index.html"), server)
|