René's URL Explorer Experiment

{"@context":"https://schema.org","@type":"DiscussionForumPosting","headline":"event_data not working for Shiny Modules?","articleBody":"Hi,\n\nI tried a couple combinations but couldn't get it to work, please advise:\n\n`\nlibrary(shiny)\nlibrary(shinyBS)\nlibrary(plotly)\n\nModule.testUI \u003c- function(id){\n  ns \u003c- NS(id)\n  plotlyOutput(ns('ply_main'))\n}\n\nModule.test \u003c- function(input, output, session, sess) {\n  ns \u003c- session$ns\n\n  output$ply_main \u003c- renderPlotly({\n    df1 \u003c- data.frame(x = 1:10, y = 1:10)\n    plot_ly(df1, x = ~x, y = ~y) %\u003e% add_markers()\n  })\n\n  observe({\n    # eventdata \u003c- event_data(ns('plotly_click'))\n    eventdata \u003c- event_data('plotly_click',source = ns('ply_main'))\n    # eventdata \u003c- event_data('plotly_click')\n    isolate({\n      print(eventdata)\n    })\n  })\n}\n\nui \u003c- fluidPage(\n  tagList(\n    Module.testUI('test'),\n    Module.testUI('test2')\n  )\n)\n\nserver \u003c- function(input, output) {\n\n  callModule(Module.test,'test', sess)\n\n  callModule(Module.test,'test2', sess)\n}\n\nshinyApp(ui = ui, server = server)\n`\n","author":{"url":"https://github.com/happyshows","@type":"Person","name":"happyshows"},"datePublished":"2016-07-27T17:17:17.000Z","interactionStatistic":{"@type":"InteractionCounter","interactionType":"https://schema.org/CommentAction","userInteractionCount":17},"url":"https://github.com/659/plotly.R/issues/659"}