R闪亮：在使用绘图单击以在条件面板中返回值之前隐藏NA

Question

我正在使用plot_click询问Shiny中的图形，并希望条件面板显示2位信息。 但是此刻，条件面板显示“ NA”，直到我执行绘图单击，如何使它消失？

library(ggplot2)
library(shiny)
# make some data
df <- data.frame(ID=c(1,2),x=c(33,7),y=c(50,16),name=c("Tom","Bill"),link=c("https://mylink.com","https://anotherlink.com"), stringsAsFactors=FALSE)

# Shiny app

ui <- basicPage(
    plotOutput("plot", click = "plot_click"),
  verbatimTextOutput("selection"),
  conditionalPanel("!is.na(output.nametext)",
                   h4(textOutput("nametext")),
                   h4(textOutput("urltext")))
)

server <- function(input, output,session) {

  output$plot <- renderPlot({
   ggplot(data=df,aes(x=x,y=y))+
      geom_point()+
      scale_x_continuous(limits = c(0, 68))+
      scale_y_continuous(limits = c(0, 52.5))
  })

  output$selection <- renderPrint({
    nearPoints(df, input$plot_click)
  })

  info <- reactive({

    t <- as.data.frame(nearPoints(df, input$plot_click))
    s <- t[1,4]
    u <- t[1,5]
    list(s=s,u=u)

  })

  output$nametext <- renderText({info()$s})
  output$urltext <- renderText({info()$u})
}

runApp(shinyApp(ui, server), launch.browser = TRUE)

在UI中的conditionalPanel中，我尝试了!is.na(output.nametext) ， output.nametext != null ， output.nametext==true ， plot_click==true ， plot_click!=null等等。 他们都没有删除我执行点击之前存在的NA。

Answer 1

一种解决方案是简单地使用：

  output$nametext <- renderText({
    if(!is.na(info()$s)){
      info()$s      
    }
  })

您还可以使用该空间通知用户他应该单击一个点以查看信息：

  output$urltext <- renderText({
    if(!is.na(info()$s)){
      info()$u
    }else{
      print("Click on a point to get additional information")
    }
  })