クリックした後に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) 

ホープ、このことができます！