是否可以将反应函数用于r中的另一个反应函数？

例如：

        data_cbs <- reactive({ 
        "code"
        })

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

---

data\u cbs这里有一个脚本示例来说明这确实有效，并且可以使用：

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

#全局变量可以放在这里
n这里有一个脚本示例来说明这确实有效，并且可以使用：

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

#全局变量可以放在这里
n你应该使用
数据
作为
数据（）
@PorkChop对不起，这是个打字错误。请再看一次。是的，你可以这样做，就像管道一样。此外，您可以将
model
绑定到
eventReactive
，这样它只在
data\u cbs
完成时才会响应。我们应该使用
data
作为
data（）
@PorkChop抱歉，这是一个打字错误。请再看一次。是的，你可以这样做，就像管道一样。此外，您可以将
模型
绑定到
事件反应
，这样它只在
数据\u cbs
完成时才会响应