点击它后更新textInput

Question

我只想在点击它之后删除textInput的文本值（置空白文本）。我尝试从shinyjs“updateTextInput”或“onclick”没有成功，任何想法？

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) 

希望这有助于！