我是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)
})
})
我不想删除“提交”按钮,因为实际上这是对更复杂事物的试用,需要暂停“提交”按钮提供的功能。
任何帮助表示赞赏!