Question

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

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

max_training_processes: 1

但有时我想在初始化应用程序之前选择某些点。例如，如果点1,3和5已经“开启”，我希望用户能够将它们“关闭”。

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

Answer 1

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

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)

有没有办法预先选择ggiraph中的点（R闪亮）？

1 个答案: