sliderInputは日付ラベルをフォーマットしません（これ以上）

Question

私は入力スライドのラベルの日付を正しくフォーマットするためにこのアプリケーションを使用しました。今、Unixタイムスタンプが返されます。 sliderInputの処理日時が変更されましたか？

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) 

出力は次のとおりです。