Выберите вложенные данные, используя перекрестные помехи и filter_select

Question

У меня есть вложенный data.frame, который похож на этот пример.Я хочу использовать кроссстолк filter_select, чтобы вернуть вложенный график из «выбранного» вида.Как получить доступ к «выбранным» общим данным в перекрестных помехах?

    library(tidyverse)
    library(crosstalk)

    irisplot= iris %>% 
      group_by(Species) %>% 
      nest %>% 
      mutate(plot = map2(Species, data,  function (.x,.y){
      ggplot(data = .y, aes(x =  Sepal.Length, y = Sepal.Width)) +
      geom_smooth() +
      ggtitle(label = .x) }))

    shared_df1 <- SharedData$new(irisplot, ~Species, group = "Choose")

    bscols( 
    filter_select("species", 
    "Species:",shared_df1,~Species,multiple=FALSE),

    shared_df1$data$plot ## does not work. What should this be?

    )