Nsryjdtyk

I'm trying to print an interactive pie chart. On a click on the plot another trace should be added. I'm using event_data for this. When the trace is added, on the next click anywhere on the page the trace shall be removed. I didn't find a solution for that. I don't know how to overwrite the onclick-event after another click.

The next Problem would be to remove the before added trace. I think i could use plotlyProxy for that like in Removing traces by name using plotlyProxy (or accessing output schema in reactive context)

Afterwards you can see my code

library(shiny)

library(data.table)

library(plotly)



ui <- basicPage(

    mainPanel(

      fluidRow(column(8, plotly::plotlyOutput("myplot", height = "800px")))

    )

)



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

  testdata = data.frame("Orga" = c("Li", "La", "Le", "Lu", "De", "Va", "Xul", "Jin"),

                    "Dachorga" = c("Bla", "Bla", "Blu", "Blu", "Blub", "Blub", "Lol", "Lol"),

                    "Umsatz.Orga" = c(20000, 10000, 12000, 3000, 100, 2400, 205000, 95000))

  testdata = data.table(testdata)

  testdata_agg = testdata[, sum(Umsatz.Orga), by=Dachorga]





  output$myplot <- renderPlotly({

    p <- testdata_agg %>%

      group_by(Dachorga) %>%

      plot_ly(labels = ~Dachorga, values = ~V1, hoverinfo = 'label+percent+value') %>%

      add_pie(hole = 0.6) %>%

      layout(title = "Donut charts using Plotly",  showlegend = F,

         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),

         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))

    d <- event_data("plotly_click")

    if (!is.null(d)) {

      p = add_pie(p, data = testdata[Dachorga == "Bla"], labels = ~Orga, values = ~Umsatz.Orga, hole = 0.5, 

              hoverinfo = 'label+percent+value', domain = list(

                x = c(0.1, 0.9),

                y = c(0.1, 0.9)),

              marker = list(hover = list(color = "white")))

    }

    p

  })

}



shinyApp(ui = ui, server = server)

Sorry for my bad english and thanks in advance

One can use a small javascript code to detect one click on the document, and send the result to the shiny server with Shiny.setInputValue. Then one can control the plot with the help of a reactive value.

library(shiny)

library(data.table)

library(plotly)



js <- "

$(document).ready(function(){

  $(document).on('click', function(){

    Shiny.setInputValue('click_on_doc', true, {priority: 'event'});

  })

})"



ui <- basicPage(

  tags$head(tags$script(HTML(js))),

  mainPanel(

    fluidRow(column(8, plotly::plotlyOutput("myplot", height = "800px")))

  )

)



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

  testdata <- data.frame("Orga" = c("Li", "La", "Le", "Lu", "De", "Va", "Xul", "Jin"),

                        "Dachorga" = c("Bla", "Bla", "Blu", "Blu", "Blub", "Blub", "Lol", "Lol"),

                        "Umsatz.Orga" = c(20000, 10000, 12000, 3000, 100, 2400, 205000, 95000))

  testdata <- data.table(testdata)

  testdata_agg <- testdata[, sum(Umsatz.Orga), by=Dachorga]



  plot <- testdata_agg %>%

    group_by(Dachorga) %>%

    plot_ly(labels = ~Dachorga, values = ~V1, hoverinfo = 'label+percent+value') %>%

    add_pie(hole = 0.6) %>%

    layout(title = "Donut charts using Plotly",  showlegend = F,

           xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),

           yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))



  click <- reactiveVal(FALSE)



  observe({

    event <- !is.null(event_data("plotly_click"))

    click(event)

  })



   observeEvent(input$click_on_doc, {

     click(FALSE)

   })  



  output$myplot <- renderPlotly({

    if (click()) {

      p <- add_pie(plot, data = testdata[Dachorga == "Bla"], labels = ~Orga, 

                   values = ~Umsatz.Orga, hole = 0.5, 

                  hoverinfo = 'label+percent+value', domain = list(

                    x = c(0.1, 0.9),

                    y = c(0.1, 0.9)),

                  marker = list(hover = list(color = "white")))

    }else{

      p <- plot

    }

    p

  })

}



shinyApp(ui = ui, server = server)

I have not understood your "next problem". Perhaps open a new question and try to clarify.