Можно ли использовать реактивную функцию в другой реактивной функции в r блестящей?

Question

Например:

 data_cbs <- reactive({ 
     "code" 
     }) 

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

Можно использовать следующую структуру в R блестящие?

Возможно, важно знать, что data_cbs() и model состоит из 3-4 инструкций else-if.

Answer 1

Вот пример одного сценария, чтобы показать, что это действительно работает, и играть с:

# 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)