小编Han*_*phy的帖子

基本上,我在一个Shiny应用程序中有一个来自googleVis包的gvisCalendar图表,我想在图表下方显示与所选框对应的dataTable.

我可以通过将gvis.listener.jscode参数设置为包含javascript代码字符串的变量来添加事件侦听器.例如,使用此代码,我可以提取所选日历日期的维基百科页面:

output$dates_plot <- renderGvis({
      gvisCalendar(calendar.ddply,
                   options = list(
                                  colorAxis = "{
                                      minValue: 0,  
                                      colors: ['E9967A', 'A52A2A']
                                   }",
                  gvis.listener.jscode = jscode2 )
          )
    })

    jscode2<- "window.open('http://en.wikipedia.org/wiki/'
              + data.getValue(chart.getSelection()[0].row,0)); "

使用此代码,我运行了我的程序,选择了"2015年6月16日"框,我的浏览器上显示了一个新标签:https://en.wikipedia.org/wiki/Tue_Jun_16_2015_00 : 00 : 00_GMT- 0400_(EDT)

我实际上并不想对维基百科做任何事情,我只是以此为例.

我想要做的就是将所选日历框的日期保存为R对象,以便我可以显示与该日期对应的数据的数据表.

我几乎没有使用javascript的经验.谢谢!