Question

我想以一种方式使用dateInput，在刷新闪亮的网页时，应用程序从Sys.Date（） - 1获取实际值属性。目前，如果我在2016-09-20启动应用程序并在25日再次访问它，则dateInput的值仍为20。

默认情况下这不是反应性的吗？我应该将昨天的日期作为文本输入或类似内容呈现为服务器中的字符吗？

ui语境：

dateInput(inputId="datex", label="Select Date", value=Sys.Date()-1,
                                                      format = "yyyy-mm-dd",
                                                      startview = "month" )

由于有光泽的dateInput的文档使用Sys.Date减去了几天，我认为它应该是反应性上下文并且非常直接：

 # from docu: Pass in a Date object
   dateInput("date4", "Date:", value = Sys.Date()-10)

您的建议表示赞赏！

Answer 1

您应该将dateInput设置为uiOutput，以便每次会话开始时都会dateInput呈现。{/ p>

rm(list = ls())
library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    uiOutput("myui")    
  )
)
server <- function(input, output) {
  output$myui <- renderUI({
    dateInput(inputId="datex", label="Select Date", value=Sys.Date()-1,
              format = "yyyy-mm-dd",
              startview = "month" )
  }) 
}
shinyApp(ui, server)

闪亮的日期输入输出应用程序启动日期

1 个答案: