mastering shiny chapter2 部分课后习题

1. 

library(shiny)

ui <- fluidPage(
    dataTableOutput("table")
)
server <- function(input, output, session) {
    output$table <- renderDataTable(mtcars, options = list(paging = FALSE,
                                                           searching = FALSE,
                                                           ordering = FALSE))
}

shinyApp(ui, server)

2. 

library(shiny)

ui <- fluidPage(
    
  textInput(inputId = "input1", 
            label = "input", 
            placeholder = "your name"),
  
  sliderInput(inputId = "slider", 
              label = "when should we deliver?", 
              min = lubridate::as_date("2020-09-16"), 
              max = lubridate::as_date("2020-09-23"), 
              value = lubridate::as_date("2020-09-17"), 
              timeFormat = "%F",