你不能使用 input$model_input 在反应性背景之外。这可能会导致一些问题。我们简单地将它移到外面 observeEvent 。
input$model_input
observeEvent
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 }) } )