我正在尝试使用crosstalk 包，特别是filter_select()函数，来制作一个带有过滤到特定选择框的交互式图表。
例如，我希望下面的代码（例如在 Flex 仪表板中运行）生成一个图表，其中可以通过交互式输入过滤数据集中的国家/地区。
library(crosstalk)
library(ggplot2)
library(gapminder)
library(plotly)
sd <- SharedData$new(gapminder)
filter_select("country", "Country:", sd, ~ country)
g <- ggplot(sd, aes(year, lifeExp, color = country, group = country)) +
geom_line()
ggplotly(g)
虽然我确实得到了一个“国家：”选择国家名称的输入，但结果图（下面的屏幕截图）仍然包括所有国家，而不仅仅是我输入的国家。
我尝试将图形显示为普通的 ggplot 而不是调用 ggplotly，并尝试在 flexdashboard 和 R 笔记本中运行它，但在任何情况下输入最终都不会影响图形。如何使情节具有交互性？
会话信息如下。顺便说一句，您需要 plotly 的开发版本（从 GitHub 安装）才能将 plotly 与串扰一起使用。
Session info ----------------------------------------------------------------------------------------------------------------------------------------------
setting value
version R version 3.3.3 (2017-03-06)
system x86_64, darwin13.4.0
ui RStudio (1.0.136)
language (EN)
collate en_US.UTF-8
tz America/New_York
date 2017-04-14
Packages --------------------------------------------------------------------------------------------------------------------------------------------------
package * version date source
assertthat 0.2.0 2017-04-11 cran (@0.2.0)
backports 1.0.4 2016-10-24 cran (@1.0.4)
base64enc 0.1-3 2015-07-28 CRAN (R 3.3.0)
colorspace 1.2-6 2015-03-11 CRAN (R 3.3.0)
crosstalk * 1.0.1 2017-04-07 Github (rstudio/crosstalk@d8f29eb)
devtools 1.12.0 2016-06-24 CRAN (R 3.3.0)
digest 0.6.12 2017-01-27 cran (@0.6.12)
dplyr 0.5.0.9001 2017-04-11 Github (hadley/dplyr@1b0ae13)
evaluate 0.10 2016-10-11 cran (@0.10)
flexdashboard 0.2.0 2016-05-18 CRAN (R 3.3.0)
gapminder * 0.2.0 2015-12-31 CRAN (R 3.3.0)
ggplot2 * 2.2.1.9000 2017-04-14 Github (hadley/ggplot2@f4398b6)
glue 0.0.0.9000 2017-03-30 Github (tidyverse/glue@6e77c3b)
gtable 0.2.0 2016-02-26 CRAN (R 3.3.0)
htmltools * 0.3.5 2016-03-21 CRAN (R 3.3.0)
htmlwidgets 0.8 2016-11-09 cran (@0.8)
httpuv 1.3.3 2015-08-04 CRAN (R 3.3.0)
httr 1.2.1 2016-07-03 cran (@1.2.1)
jsonlite 1.4 2017-04-08 cran (@1.4)
knitr 1.15.19 2017-04-14 Github (yihui/knitr@0c2abf8)
labeling 0.3 2014-08-23 CRAN (R 3.3.0)
lazyeval 0.2.0 2016-06-12 cran (@0.2.0)
magrittr 1.5 2014-11-22 CRAN (R 3.3.0)
memoise 1.0.0 2016-01-29 CRAN (R 3.3.0)
mime 0.5 2016-07-07 cran (@0.5)
munsell 0.4.3 2016-02-13 CRAN (R 3.3.0)
plotly * 4.5.6.9000 2017-04-14 Github (ropensci/plotly@4ffae1c)
plyr 1.8.4 2016-06-08 cran (@1.8.4)
purrr 0.2.2 2016-06-18 cran (@0.2.2)
R6 2.2.0 2016-10-05 cran (@2.2.0)
Rcpp 0.12.10 2017-04-13 Github (RcppCore/Rcpp@21d8388)
rlang 0.0.0.9006 2017-04-11 Github (hadley/rlang@0756eaf)
rmarkdown 1.3 2016-12-21 CRAN (R 3.3.0)
rprojroot 1.1 2016-10-29 cran (@1.1)
rsconnect 0.7 2016-12-21 CRAN (R 3.3.0)
rstudioapi 0.6 2016-06-27 cran (@0.6)
scales 0.4.1.9000 2016-11-28 Github (hadley/scales@89c2a2f)
shiny 1.0.1 2017-04-01 cran (@1.0.1)
stringi 1.1.5 2017-04-07 cran (@1.1.5)
stringr 1.2.0 2017-02-18 cran (@1.2.0)
tibble 1.3.0 2017-04-01 cran (@1.3.0)
tidyr 0.6.1 2017-01-10 CRAN (R 3.3.2)
viridisLite 0.2.0 2017-03-24 cran (@0.2.0)
withr 1.0.2 2016-06-20 cran (@1.0.2)
xtable 1.8-2 2016-02-05 CRAN (R 3.3.0)
yaml 2.1.14 2016-11-12 cran (@2.1.14)