单击后更新textInput

Question

我只想在点击后删除textInput的文本值（放空白文本）。我尝试了＃34; updateTextInput＆＃34;或＆＃34; onclick＆＃34;来自shinyjs没有成功，任何想法？

if (interactive()) {
ui <- fluidPage(
titlePanel("test textInput clicking"),

sidebarLayout(
    sidebarPanel(
        textInput("sequenceTextInput", label = "", value = "Enter sequence 
                   here...")
    ),
    mainPanel(
    )  
))

server = function(input, output) {
}
shinyApp(ui, server)
}

Answer 1

您可以按照以下方式使用shinyjs：

library(shinyjs)

ui <- fluidPage(
  titlePanel("test textInput clicking"),

  sidebarLayout(
    sidebarPanel(
      useShinyjs(),
          textInput("sequenceTextInput", label = "", value = "Enter sequence here...")

    ),
    mainPanel(
    )  
  ))

server = function(input, output,session) {
  onclick("sequenceTextInput",updateTextInput(session,"sequenceTextInput",value=""))
}

shinyApp(ui, server)

希望这有帮助！