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

Question

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

这是不是默认情况下反应？我应该如何在服务器中将昨天日期显示为文本输入或类似内容？

的UI方面：

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

至于shiny's文档dateInput利用Sys.Date减去若干天，我认为它应该是反应性的背景和非常直截了当的：

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

您的建议表示感谢！

Answer 1

您应该将dateInput设置为uiOutput，因此每次会话开始时dateInput都会呈现。

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)