闪亮显示数字而不是日期

Question

我正在尝试显示带有Shiny的表格，但是在以正确的格式显示日期时遇到问题。这是我正在处理的示例：

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(
  sidebarLayout(

    sidebarPanel(
      textInput("myfirstinput", "text1"),
      textInput("mysecondinput", "text2"),
      actionButton("button", "An action button")
    ),
    mainPanel(
      tableOutput("table1")
    )
  )
)


# Define server logic required to draw a histogram
server <- function(input, output) {
  selected <- as.Date('2000-01-01', "%Y-%m-%d")
  selected <- as.list(selected)

  output$table1 <- renderTable(selected)

}

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

Answer 1

如果您更改行，这似乎可行：

  selected <- as.Date('2000-01-01', "%Y-%m-%d")

收件人：

    selected <- format(as.Date('2000-01-01'), "%Y-%m-%d")

Answer 2

这也有效：）

 selected <- as.character(as.Date('2000-01-01', "%Y-%m-%d"))

享受并继续发布！