閃亮的日期輸入輸出應用程序啓動日期

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)