是否有可能使用反應函數轉換爲另一個反應函數？

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)