select datapoint on ggplot to generate table only shows on desktop/laptop not mobile

Below are the code sample I found on Chapter 7 Graphics | Mastering Shiny.

ui <- fluidPage(
  plotOutput("plot", brush = "plot_brush"),
server <- function(input, output, session) {
  output$plot <- renderPlot({
    ggplot(mtcars, aes(wt, mpg)) + geom_point()
  }, res = 96)
  output$data <- renderTable({
    brushedPoints(mtcars, input$plot_brush)

The code is working on shiny desktop; however, it wont generate the table on mobile device.
Please help!

This topic was automatically closed 54 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.