有没有办法在Ggiraph(r Shiny)中进行预选

Question

我想在ggiraph :: renderggiraph（）输出中预选一些点。

我可以制作以下闪亮的应用程序，使我可以选择点，然后在其他地方使用这些选择点：

dat <- data.table(x = 1:6, y = 1:6 %% 3, id = 1:6, status = rep(c('on','off'),3))
ui <- fluidPage(   ggiraphOutput("plot"),
                   verbatimTextOutput("choices"))
server <- function(input, output, session){

  output$plot <- renderggiraph({
    p <- ggplot(dat ) +
      geom_point_interactive(aes(x = x, y = y, data_id = id), size = 5) + 
      scale_color_manual(limits = c('on','off'),values = c('red','black')) 
    ggiraph(code = print(p),
            hover_css = "fill:red;cursor:pointer;",
            selection_type = "multiple",
            selected_css = "fill:red;")
  })
  output$choices <- renderPrint({
  input$plot_selected
  })

}
shinyApp(ui = ui, server = server)

，但有时我想在初始化应用程序之前选择某些点。例如，如果点1、3和5已经"在"上"在"上，我希望用户能够将其关闭。

所以我的问题是，可以实现这样的目标吗？

Answer 1

是的，在 session$onFlushed中使用 session$sendCustomMessage：

library(shiny)
library(ggiraph)
library(data.table)
library(magrittr)
dat <- data.table(x = 1:6, y = 1:6 %% 3, id = 1:6, status = rep(c('on','off'),3))
ui <- fluidPage(   fluidRow(
  column(width = 7, 
         ggiraphOutput("ggobj") ),
  column(width = 5, verbatimTextOutput("choices"))
) )
server <- function(input, output, session){
  output$ggobj <- renderggiraph({
    p <- ggplot(dat ) +
      geom_point_interactive(aes(x = x, y = y, data_id = id), size = 5) + 
      scale_color_manual(limits = c('on','off'),values = c('red','black')) 
    ggiraph(code = print(p),
            hover_css = "fill:red;cursor:pointer;",
            selection_type = "multiple",
            selected_css = "fill:red;")
  })
  session$onFlushed(function(){
    session$sendCustomMessage(type = 'ggobj_set', message = 1:3)
  })
  output$choices <- renderPrint({
    input$ggobj_selected
  })

}
shinyApp(ui = ui, server = server)