闪亮应用程序中的“重置输入”按钮

Question

我想在我闪亮的应用程序中实现一个“重置输入”按钮。

这是一个只有两个输入的示例，我使用更新函数将值设置回默认值：

library(shiny)

runApp(list(

  ui = pageWithSidebar(

    headerPanel("'Reset inputs' button example"),

    sidebarPanel(
      numericInput("mynumber", "Enter a number", 20),
      textInput("mytext", "Enter a text", "test"),
      tags$hr(),
      actionButton("reset_input", "Reset inputs")
    ),

    mainPanel(
      h4("Summary"),
      verbatimTextOutput("summary")
    )

  ),

  server = function(input, output, session) {

    output$summary <- renderText({
      return(paste(input$mytext, input$mynumber))
    })

    observe({
      input$reset_input
      updateNumericInput(session, "mynumber", value = 20)
      updateTextInput(session, "mytext", value = "test")
    })
  }

))

我想知道是否还有一个功能可以将所有内容恢复为默认值？这在有多个输入的情况下会很有用。

此外，我不确定我使用观察功能来检测操作按钮何时被按下是否是处理操作按钮的“正确方式”？

Answer 1

shiny 中没有这样的功能，但是，这里有一种方法可以实现这一点，而无需实质上定义您的输入两次。诀窍是使用 uiOutput 并将您要重置的输入包装在 div 中，每次按下重置按钮时，其 id 都会更改为新值。

library(shiny)

runApp(list(

  ui = pageWithSidebar(

    headerPanel("'Reset inputs' button example"),

    sidebarPanel(
      uiOutput('resetable_input'),
      tags$hr(),
      actionButton("reset_input", "Reset inputs")
    ),

    mainPanel(
      h4("Summary"),
      verbatimTextOutput("summary")
    )

  ),

  server = function(input, output, session) {

    output$summary <- renderText({
      return(paste(input$mytext, input$mynumber))
    })

    output$resetable_input <- renderUI({
        times <- input$reset_input
        div(id=letters[(times %% length(letters)) + 1],
            numericInput("mynumber", "Enter a number", 20),
            textInput("mytext", "Enter a text", "test"))
    })

  }
))

Answer 2

首先，您对观察者的使用是正确的，但是还有另一种更好的方式。而不是

observe({
  input$reset_input
  updateNumericInput(session, "mynumber", value = 20)
  updateTextInput(session, "mytext", value = "test")
})

你可以改成

observeEvent(input$reset_input, {
  updateNumericInput(session, "mynumber", value = 20)
  updateTextInput(session, "mytext", value = "test")
})

另外请注意，您不需要从 renderText 函数显式“返回”，最后一条语句将自动使用。

---

关于主要问题：Matthew 的解决方案很棒，但还有一种方法可以实现您想要的，而无需将所有 UI 移动到服务器中。我认为将 UI 保留在 UI 文件中是更好的做法，因为结构和逻辑分离通常是一个好主意。

完全免责声明：我的解决方案涉及使用我编写的包。我的包shinyjs 有一个reset 函数，允许您将输入或HTML 部分重置为其原始值。以下是如何将原始代码调整为您想要的行为，这种方式可以扩展到任意数量的输入，而无需添加任何代码。我所要做的就是在 UI 中添加对 useShinyjs() 的调用，向表单添加“id”属性，然后在表单上调用 reset(id)。

library(shiny)

runApp(list(

  ui = pageWithSidebar(

    headerPanel("'Reset inputs' button example"),

    sidebarPanel(
      shinyjs::useShinyjs(),
      id = "side-panel",
      numericInput("mynumber", "Enter a number", 20),
      textInput("mytext", "Enter a text", "test"),
      tags$hr(),
      actionButton("reset_input", "Reset inputs")
    ),

    mainPanel(
      h4("Summary"),
      verbatimTextOutput("summary")
    )

  ),

  server = function(input, output, session) {

    output$summary <- renderText({
      return(paste(input$mytext, input$mynumber))
    })

    observeEvent(input$reset_input, {
      shinyjs::reset("side-panel")
    })
  }

))

Answer 3

这是另一个适用于静态或动态输入的选项，并且不涉及完全重新渲染输入。

它使用：

reactiveValuesToList 获取所有初始输入值，以及（可选）之后初始化的任何动态输入值。

session$sendInputMessage 更新通用输入的值。 updateXyzInput 函数在底层调用它，如 session$sendInputMessage(inputId, list(value = x, ...)。

每个 Shiny 输入都使用value 作为其输入消息，并且几乎所有输入都将按原样更新其输入值。我发现只有两个输入需要特殊的大小写 - checkboxGroupInput 在未检查任何内容时不发送 NULL，dateRangeInput 将其 c(start, end) 转换为 list(start = start, end = end)。

盲目地重置所有输入可能不是一个好主意（即使选项卡也会被重置），但这很容易适应重置一组过滤的输入。

library(shiny)

ui <- pageWithSidebar(
  headerPanel("'Reset inputs' button example"),

  sidebarPanel(
    numericInput("mynumber", "Enter a number", 20),
    textInput("mytext", "Enter text", "test"),
    textAreaInput("mytextarea", "Enter text", "test"),
    passwordInput("mypassword", "Enter a password", "password"),
    checkboxInput("mycheckbox", "Check"),
    checkboxGroupInput("mycheckboxgroup", "Choose a number", choices = c(1, 2, 3)),
    radioButtons("myradio", "Select a number", c(1, 2, 3)),
    sliderInput("myslider", "Select a number", 1, 5, c(1,2)),
    uiOutput("myselUI"),
    uiOutput("mydateUI"),
    tags$hr(),
    actionButton("reset_input", "Reset inputs")
  ),

  mainPanel(
    h4("Summary"),
    verbatimTextOutput("summary")
  )
)

server <- function(input, output, session) {

  initialInputs <- isolate(reactiveValuesToList(input))

  observe({
    # OPTIONAL - save initial values of dynamic inputs
    inputValues <- reactiveValuesToList(input)
    initialInputs <<- utils::modifyList(inputValues, initialInputs)
  })

  observeEvent(input$reset_input, {
    for (id in names(initialInputs)) {
      value <- initialInputs[[id]]
      # For empty checkboxGroupInputs
      if (is.null(value)) value <- ""
      session$sendInputMessage(id, list(value = value))
    }
  })

  output$myselUI <- renderUI({
    selectInput("mysel", "Select a number", c(1, 2, 3))
  })

  output$mydateUI <- renderUI({
    dateInput("mydate", "Enter a date")
  })

  output$summary <- renderText({
    return(paste(input$mytext, input$mynumber))
  })
}

shinyApp(ui, server)

Answer 4

您还可以通过将NULL 分配给您的反应值对象来创建重置按钮。

请参阅这篇关于使用操作按钮的 RStudio Shiny 文章：http://shiny.rstudio.com/articles/action-buttons.html。具体来说，请阅读标题为模式 4 - 重置按钮 和 模式 5 - 在选项卡更改时重置 的部分。文章中提供了示例（包括代码）。

如果担心的话，本文提供的解决方案不需要额外的软件包。