sliderInput不格式化日期標籤（已有）

Question

我有這個應用程序，用於正確格式化輸入幻燈片的標籤中的日期。現在（不知道從什麼時候開始）它返回Unix時間戳。進程日期如何改變？

ui <- fluidPage(
    sliderInput("date_range", 
       NA, as.Date("2016-01-31"), as.Date('2016-12-04'), 
       value = c(as.Date("2016-01-31"), as.Date('2016-12-04')), 
       step = 1, sep = "" 
) 
) 

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

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

我測試了它無論在OSX和一個閃亮的服務器（在Ubuntu）上。同樣的結果。

Answer 1

如果您從sliderInput中刪除sep參數，您將獲得預期的輸出。您的代碼將如下所示：

library(shiny) 
    ui <- fluidPage(
    sliderInput(inputId = "date_range", 
       NA, as.Date("2016-01-31"), as.Date('2016-12-04'), 
       value = c(as.Date("2016-01-31"), as.Date('2016-12-04')), 
       step = 1 
    ) 
) 

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

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

輸出如下：