在 Flexdashboard 中使用 javascript/d3.js 创建图表和表格之间的交互

我创建了下面的 flexdashboard，其中使用了 3 个数据框。然后其中两个数据框显示为图表（dcross1,dcross2）和一个（dcross3）如表。我想要实现的是将所有这些对象连接在一起，当用户单击某个栏时，表将相应地进行子集化。不是其他图表，只有表格。我只寻找 javascript/shiny 解决方案，而不是使用的解决方案crosstalk包裹。

---
title: "Operaitonal dashboard"
author: "Report"
date: 'Date: `r Sys.Date()`'
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    theme: lumen
    vertical_layout: scroll
---

```{r setup, include=FALSE}


knitr::opts_chunk$set(echo=FALSE,
                      warning= FALSE,
                      message = FALSE)
library(shiny)
library(plotly)
library(flexdashboard)
library(ggplot2)
library(dplyr)
library(reactable)
##The dataframes

Abcd<-c("A","A","B","B")
Prod<-c(34,56,56,89)
Div<-c("Ent","Ent","App","High")
dcross1<-data.frame(Abcd,Prod,Div)


Counts<-c(45,67,78,56)
dcross2<-data.frame(Div,Abcd,Counts)

dcross3<-data.frame(Div,Abcd,Counts)

```

# Out of stock Report {data-icon="fa-cart-arrow-down" data-orientation=rows}

## Row {data-height="200"}

### Out Of Stock: Store Overview {data-width="200"}

```{r Oos Store}
daily_store_oos_gg<-
  ggplot(dcross1,
         aes(x=Abcd,
             y=Prod,
             fill=as.factor(Abcd)
             )) +
  geom_bar(stat="identity", position="dodge") 

# Convert to plotly object
daily_store_oos_ply <- 
  ggplotly(daily_store_oos_gg)

daily_store_oos_ply
```



## Column {data-width=405}
```{r Oos Store2}
daily_store_oos_gg2<-
  ggplot(dcross2,
         aes(x=Abcd,
             y=Prod,
             fill=as.factor(Abcd)
             )) +
  geom_bar(stat="identity", position="dodge") 

# Convert to plotly object
daily_store_oos_ply2 <- 
  ggplotly(daily_store_oos_gg2)

daily_store_oos_ply2
```

### Store Overview Out of Stock
```{r out of stock reactable}
daily_item_oos_rctble<-reactable(
    dcross3
    )

daily_item_oos_rctble

```