Quantcast
Viewing all articles
Browse latest Browse all 3

Answer by mRcSchwering for R Shiny: eventReactive with two controls

By giving a list it seems to work:

Server

library(shiny)shinyServer(function(input, output) {  view <- eventReactive(list(input$t1, input$t2),{      t1 <- input$t1                    t2 <- input$t2      rnorm(1)  })  output$view <- renderPrint(view())})

ui

library(shiny)shinyUI(fluidPage(   sidebarLayout(    sidebarPanel(      actionButton("t1", "t1"),      actionButton("t2", "t2")    ),    mainPanel(      verbatimTextOutput("view")    )  )))

Viewing all articles
Browse latest Browse all 3

Trending Articles