Displaying 1 result from an estimated 1 matches for "textoutput".
Did you mean:
testoutput
2018 Nov 21
2
Promises Future en shiny no me funciona
...é creeis que puede estar pasando? Lo curioso es que si os fijais en la consola, si que funciona bien.
library(future)
library(promises)
plan(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({...