R-閃亮應用

Question

我正在嘗試構建一個 shiny 應用程序，其中用戶可以通過 shiny 應用程序輸入日期，然后觸發 R 腳本來利用該日期。
我想知道如何將 shiny 的日期輸入鏈接到 R 腳本中？

function(input, output) {
  # You can access the value of the widget with input$date, e.g.
  output$value <- renderPrint({ input$date })
}

Answer 1

這是一個最小的工作示例：

library(shiny)

ui <- fluidPage(
    dateRangeInput("date","Date:"),
    textOutput("value")
)

server <- function(input, output) {
    output$value <- renderPrint({ 
        x <- input$date
        # script using x goes here
        paste("choice:",x[1],"to",x[2]) # example output
        })
}
 
shinyApp(ui = ui, server = server)