闪亮的日期输入输出应用程序启动日期
问题描述:
我想要以刷新闪亮的网页应用程序从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)
您的建议表示感谢!
答
您应该将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)
很好,谢谢! –