Интерактивные элементы сюжета ждут нажатия кнопки «Отправить»

Question

Я новичок в Shiny и пытаюсь построить интерактивный сюжет.

План состоит в том, чтобы отобразить x & y, взятые из щелчка мыши, и отобразить его под графиком.Но output$clickpoint ждет, когда я нажму "Отправить", чтобы показать последние x & y.Я пытался поместить все output$clickpoint внутрь isolate(), но это не сработало.На самом деле не знаю, как это исправить ...

Пожалуйста, найдите код ниже:

ui.R

library(shiny)

# Define UI for application 
shinyUI(fluidPage(

  # Application title
  titlePanel("Testing Mouse Interaction"),

  # Sidebar  
  sidebarLayout(
    sidebarPanel(
        radioButtons("color", "Choose color", choices = c("black","blue","red"), selected = "black"),
        submitButton("Submit")
    ),

    # Show a plot
    mainPanel(
       plotOutput("normplot", click = "plotclick"),
       textOutput("clickpoint")
    )
  )
))

server.R

library(shiny)

# Define server logic 
shinyServer(function(input, output) {

  output$normplot <- renderPlot({

    x = sort(rnorm(100, 0, 1))
    y = dnorm(x)

    plot(x, y, type="l", col = input$color)

  })

  output$clickpoint <- renderText({

      plotcoord = paste("x =", input$plotclick$x, "and y =",input$plotclick$y)

  })

})

Я не хочу удалять кнопку «Отправить», потому что на самом деле это пробная версия для чего-то более сложного, для чего требуется пауза, которую предоставляет кнопка «Отправить».

Любая помощь приветствуется!