使用不同的数据更新多个rNVD3图表

Question

我开始使用rCharts包，特别是在Shiny中使用它。但是我想利用rNVD3选项的一些功能。理想情况下，我想复制一些我们在NVD3页面上看到的内容，即单个图例更新多个图。

我有两个情节，一个是时间序列，另一个是条形图，显示时间序列的总数。最小的例子是

library(devtools)
install_github('rCharts', 'ramnathv')
library(rCharts)
library(reshape)
options(gsubfn.engine = "R") #If using a Mac
library(sqldf)
set.seed(2084)
dfSales <- data.frame(month = month.abb,
                    FR = runif(12, 20, 30),
                    SP = runif(12, 60, 70),
                    UK = runif(12, 100, 110)
                    )
sales <- melt(dfSales, id = 'month')
# Adding a dummy variable name, so that we can take advantage of the grouped / stacked option in mutliBarChart.
totalSales <- sqldf("select 'TotalSales' as name, variable, sum(value) as totalSales from sales group by variable")

# Simple line chart
h1 <- hPlot(x = "month", y = "value", data = sales, type = "line", group = "variable")
h1

# Simple bar chart
n1 <- nPlot(totalSales~name, group='variable', data = totalSales, type = "multiBarChart")
n1

所以我想在一个闪亮的应用程序的同一页面上显示，但是只有一个图例，这样如果我选择其中一个国家，那么该国家将从两个地块中消失/重新出现。

我知道我可以在Shiny中使用checkboxGroupInput来实现其中一些功能，但原始数据集要大得多，每次加载都需要很长时间。

有没有办法在R？中显示两个图的单个图例？