mirror of
https://github.com/rstudio/shiny.git
synced 2026-01-14 09:28:02 -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
22 lines
401 B
R
22 lines
401 B
R
library(shiny)
|
|
|
|
# Define UI for displaying current time ----
|
|
ui <- fluidPage(
|
|
|
|
h2(textOutput("currentTime"))
|
|
|
|
)
|
|
|
|
# Define server logic to show current time, update every second ----
|
|
server <- function(input, output, session) {
|
|
|
|
output$currentTime <- renderText({
|
|
invalidateLater(1000, session)
|
|
paste("The current time is", Sys.time())
|
|
})
|
|
|
|
}
|
|
|
|
# Create Shiny app ----
|
|
shinyApp(ui, server)
|