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)

是否有可能将反应函数用于r闪亮的另一个反应函数？

1 个答案: