等待提交按钮的交互式绘图元素

时间:2019-02-24 07:16:38

标签: r shiny

我是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)

  })

})

我不想删除“提交”按钮,因为实际上这是对更复杂事物的试用,需要暂停“提交”按钮提供的功能。

任何帮助表示赞赏!

0 个答案:

没有答案