Files
Joe Cheng cef1f3c7ee withReactiveDomain now acts as a promise domain
Without this change, async handlers won't return any
value for getDefaultReactiveDomain().

    library(shiny)
    library(promises)

    ui <- fluidPage(
      p("This app tests if async handlers have reactive domains. You'll get a yes/no answer below."),
      h3(
        "Does it work?",
        textOutput("answer", inline = TRUE)
      )
    )

    server <- function(input, output, session) {
      output$answer <- renderText({
        promise_resolve(TRUE) %...>% {
          if (!is.null(getDefaultReactiveDomain()))
            "Yes!"
          else
            "No :("
        }
      })
    }

    shinyApp(ui, server)
2018-04-16 20:51:46 -05:00
..
2016-03-08 16:54:28 -06:00
2017-01-25 23:45:26 +00:00
2014-02-11 22:59:37 -06:00
2015-12-10 15:11:03 -06:00
2015-09-09 12:12:47 -07:00
2016-08-12 21:26:18 -05:00
2017-08-04 15:10:08 +01:00
2016-09-16 23:39:26 -05:00
2017-01-31 20:36:28 -06:00
2018-02-09 11:12:45 -08:00
2018-03-20 16:45:47 -07:00