Отображение таблицы вывода в блестящем виде на основе пользовательских данных и сброс к таблице по умолчанию

Question

У меня блестящее приложение, которое при загрузке я хочу показать таблицу по умолчанию.Теперь, когда приложение загружено, пользователь может изменить значения во входах и, нажав на кнопку «Выполнить», текущая таблица должна быть заменена новой таблицей, основанной на пользовательских вводах.И после того, как все сделано, и если пользователь нажимает кнопку сброса, он должен снова показать таблицу по умолчанию.Как я могу этого достичь.Ниже приведено базовое приложение

shinyApp(
ui = basicPage(
  mainPanel(
    numericInput("model_input", label = h5("Total Budget"), value = 9000000),
    numericInput("iterations", label = h5("Iterations"), value = 900),
    actionButton("run", "Run"),
    actionButton("reset", "reset"),
    tableOutput("view")
  )
),
server = function(input, output) {
  runcar<- reactive({
    mtcars %>% mutate(new = mpg * input$model_input +input$iterations)
         })
  output$view <- renderTable({
    mtcars
  })
}

)

Answer 1

Я думаю, что решение ниже должно быть в состоянии решить ваш вопрос.

library(dplyr)
library(shiny)

shinyApp(
  ui = basicPage(
    mainPanel(
      numericInput("model_input", label = h5("Total Budget"), value = 9000000),
      numericInput("iterations", label = h5("Iterations"), 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$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
    })
  }
)