Is it possible to use reactive function into another reactive function in r shiny?

Question

For example:

        data_cbs <- reactive({ 
        "code"
        })

        model <- reactive({
                data <- data_cbs()
                + "code"    
        })

Is it possible to use the following structure in R shiny?

Maybe it is important to know, that data_cbs() and model consists of 3-4 "else-if" statements.

@PorkChop sorry, it was a typo. Take a look please once more. — Daniil Yefimov
– Daniil Yefimov, Commented Nov 16, 2016 at 12:55
yeah you can do that, like a pipeline. Additionally, you can bind model to eventReactive so it only responds when data_cbs is complete — Pork Chop
– Pork Chop, Commented Nov 16, 2016 at 12:57

Willem van Doesburg · Accepted Answer · 2016-11-20 20:26:24Z

2

Here's a single-script example to show that this indeed works and to play around with:

# Global variables can go here
n <- 200


# Define the UI
ui <- bootstrapPage(
  checkboxInput('random', 'randomize'),
  plotOutput('plot')
)


# Define the server code
server <- function(input, output) {

  checkRandom <- reactive({
    if( input$random ){
      data <- runif(n)
    }else {
      data <- seq(1, n)
    }
    return(data)
  })

  output$plot <- renderPlot({
    plot(checkRandom())
  })
}

# Return a Shiny app object
shinyApp(ui = ui, server = server)

edited Nov 20, 2016 at 20:26

answered Nov 17, 2016 at 20:03

Willem van Doesburg

5344 silver badges10 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Is it possible to use reactive function into another reactive function in r shiny?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related