反応性官能基を光反応性官能基に使用することは可能ですか？たとえば、

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)