Displaying 1 result from an estimated 1 matches for "eventreact".
2018 Nov 21
2
Promises Future en shiny no me funciona
...an(multiprocess)
heavyFunction <- function(n){
Sys.sleep(n)
print(n)
}
ui <- fluidPage(
actionButton("go","Show the data"),
textOutput("result0sec"),
textOutput("result10sec")
)
server <- function(input,output,session){
data0 <- eventReactive(input$go,{
heavyFunction(0)
})
data10 <- eventReactive(input$go,{
future(heavyFunction(10))
})
output$result0sec <- renderText({
data <- data0()
print(data)
})
output$result10sec <- renderText({
data <- data10()
data%...>%print()
})...