小编Ins*_*nsa的帖子

我想在我闪亮的应用程序中实现"重置输入"按钮.

这是一个只有两个输入的例子,我正在使用更新函数将值设置回默认值:

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

))

我想知道的是,是否还有一个功能可以将所有内容设置为默认值？这在多个输入的情况下将是有用的.

另外,我不确定我是否使用了observe功能来检测动作按钮何时被击中是处理动作按钮的"正确方法"？

我想有一个像针的情节

plot(1:10,1:10,type="h")

但是在ggplot2.是否有或多或少的直接方式来做到这一点？或者只有通过折线图或类似的方法可以解决这个问题？