Блестящая sliderinput TimeFormat

Question

Я пытаюсь обновить sliderinput с DateFormat, но обновленная версия отличается от фактической даты я передаю в.

shinyUI(sidebarLayout(
    sidebarPanel(
    sliderInput("date_range", 
        "Choose Date Range:", 
        min = as.POSIXct("2016-02-01 01:00"), 
        max = as.POSIXct("2016-03-01 23:00"), 
        value = c(as.POSIXct("2016-02-01 02:00")), 
        timeFormat = "%a %H:%M", ticks = F, animate = T 
     )))) 





shinyServer(function(session,input, output) { 
    observe(
     #min und max date vom tweet map frame auslesen 
     Sys.setlocale("LC_TIME", "English") 



    time <- as.data.frame(as.POSIXct(df_map$created_at, format="%a %b %d %H:%M:%S +0000 %Y", tz="GMT")) 
    names(time)[1]<-"time" 
    time %>% arrange(desc(time)) %>% filter(row_number()==1 | row_number()==n()) -> min_max_time 



    updateSliderInput(session,"date_range",min = (min_max_time[2,]), 
              max = (min_max_time[1,]), value=min_max_time[2,]) 
    } 
))} 

Если формат df_map$created_at является Mon Jun 06 21:37:23 +0000 2016

В примере человека min_max_time является

time 
    1 2016-06-07 23:27:11 
    2 2016-06-06 21:37:23 

Но обновленные Sliderinput начинается в 23:37:23 не 21:37:23

Использует ли shinyslider другой часовой пояс?

Answer 1

Уже нашли решение: Shiny использует UTC.

Но вы можете пройти timezone = "GMT" в UI Sliderinput.