基于数据库中的输入更新R datatable中的列

我正在尝试将用户输入附加到Shining app中的输出表。当用户更改

Total Cost

的任何值时，它应该在我单击run之前在表中更新。我怎样才能解决这个问题

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 %>% mutate(budget  = input$model_input))  # this makes sure that on load, your default data will show up

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

库（dplyr）
图书馆（闪亮）
shinyApp(
ui=基本页面(
主面板(
数字输入（“型号输入”，标签=h5（“总成本”），价值=10000），
数值输入（“迭代”，标签=h5（“运行”），值=900），
操作按钮（“运行”、“运行”），
操作按钮（“重置”、“重置”），
表格输出（“视图”）
)
),
服务器=功能（输入、输出）{
v%mutate（预算=输入$model#u输入））#这确保在加载时显示默认数据
observeEvent（输入$run{
v$数据%变异（新=mpg*输入$model\u输入+输入$iterations）
})
observeEvent（输入$reset{
v$data您不能在被动上下文之外使用
input$model\u 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 
    })
  }
)

库（dplyr）
图书馆（闪亮）
shinyApp(
ui=基本页面(
主面板(
数字输入（“型号输入”，标签=h5（“总成本”），价值=10000），
数值输入（“迭代”，标签=h5（“运行”），值=900），
操作按钮（“运行”、“运行”），
操作按钮（“重置”、“重置”），
表格输出（“视图”）
)
),
服务器=功能（输入、输出）{
v您不能在被动上下文之外使用
input$model\u 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 
    })
  }
)

库（dplyr）
图书馆（闪亮）
shinyApp(
ui=基本页面(
主面板(
数字输入（“型号输入”，标签=h5（“总成本”），价值=10000），
数值输入（“迭代”，标签=h5（“运行”），值=900），
操作按钮（“运行”、“运行”），
操作按钮（“重置”、“重置”），
表格输出（“视图”）
)
),
服务器=功能（输入、输出）{
v