pacman::p_load(shiny, shinyTime)
ui <- fluidPage(
# Default value is 00:00:00
timeInput(inputId="time1", "Time:"),
# Set to current time
timeInput(inputId="time2", "Time:", value = Sys.time()),
# Set to custom time
timeInput(inputId="time3", "Time:", value = strptime("12:34:56", "%T")),
# Use %H:%M format
timeInput(inputId="time4", "Time:", seconds = FALSE)
)
server<- function(input, output,session) { }
shinyApp(ui, server)
Warning in …. :the condition has length > 1 and only the first element will be used comparing a vector with a scalar=> R automatically takes the first element of var
https://rstudio.github.io/promises/https://resources.rstudio.com/webinars/scaling-shiny-apps-with-async-programming-june-2018 Shiny async 는 future 와 promises packages를 통합하여 사용함으로써 얻을 수 있다. future Background에서 실행하는 worker process에서 장시간의 연산을 수행하기 위해 future를 활용한다. 동시에 그 동안에 다른 user의 요청을 처리할수 있도록 shiny process들은 free하게 남게둔다. 이것은 부하가 Read more…