PROSAGA码农传奇-R-根据Shiny中的输入更新R数据表中的列

根据Shiny中的输入更新R数据表中的列

作者: 仙风道骨刘憨
发布时间: 2024-09-01 11:07:22 (9天前)
转自：

<div class =“post-text”itemprop =“text”>
  <P>
    你不能使用
     <code>
      input$model_input
    </code>
     在反应性背景之外。这可能会导致一些问题。我们简单地将它移到外面
     <code>
      observeEvent
    </code>
    。
  </p>
   <pre>
    <code>
      library(dplyr)
library(shiny)

shinyApp(
  ui = basicPage(
    mainPanel(
      numericInput("model_input", label = h5("Total Cost"), value = 10000),
      numericInput("iterations", label = h5("Runs"), value = 900),
      actionButton("run", "Run"),
      actionButton("reset", "reset"),
      tableOutput("view")
    )
  ),
  server = function(input, output) {
    v <- reactiveValues(data = mtcars)  # this makes sure that on load, your default data will show up

observeEvent(input$model_input,{
      v$data <- v$data %>% mutate(budget  = input$model_input)
    })
    observeEvent(input$run, {
      v$data <- mtcars %>% mutate(new = mpg * input$model_input +input$iterations)
    })

observeEvent(input$reset, {
      v$data <- mtcars # your default data
    })

output$view <- renderTable({
      v$data 
    })
  }
)

</code>
  </pre>
</DIV>