如何在 Shiny 的 daterange UI 中显示文本？

Question

我们将不胜感激。

我正在开发一个使用dateRangeInput() 的应用程序，以便参与者选择他们的数据。我想要的是当用户进入应用程序时会出现一些示例文本，说“请选择日期”之类的内容，而不是显示实际日期。

我曾尝试使用helpText() 来执行此操作，但是得到以下结果。

有人可以提供解决方案吗？我还尝试将 start = 和 end = 设置为字符串，但是由于它们不是日期而接收和错误。

下面是一些示例代码。

library(shiny)

# UI
ui <- fluidPage(

    fluidPage(
        sidebarPanel(
            dateRangeInput("daterange", "Episode End Date Range:",
                           start  = "2020-01-01",
                           end    = Sys.Date(),
                           min    = "2002-01-01",
                           max    = Sys.Date(),
                           helpText("Please select date"))
        )


    )
)

# Server
server <- function(input, output) {

}

# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

将helpText("Please select date")) 条件替换为format = "Please select date"

虽然这不是完美的解决方案，因为在可用格式值 (https://shiny.rstudio.com/reference/shiny/latest/dateInput.html) 中列出的每个字母都会随着其替换而更改。 您可以考虑通过将单词“日期”替换为不包含字母“y”、“m”、“d”的同义词来解决此问题