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!