Question

我正在编写一个Flexdashboard，并尝试使用串扰进行交互，因为遗憾的是，由于不使用闪亮的Web服务器，因此闪亮无法替代。我试图做的是在SharedData对象上具有三个过滤器（串扰）。一切正常。

我想要实现的是在plot_ly图中仅使用一部分过滤器（在数据表中使用）。

我还试图在过滤器上获得标准选择，并且理想情况下是防止用户删除过滤器（因此必须根据选择激活一个过滤器）。

我通过Google进行了一项研究，以找到解决方案（使用串扰或其他替代方法，而不必使用发亮的方法），但是没有找到任何东西。

下面您可以找到我减少的代码行。

---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
require(crosstalk)
require(plotly)
```

```{r einlesen, include=FALSE}
mydata = data.frame(la = c("li", "la", "laune", "baer"), Jahr = c(2013, 2014, 2015, 2016), le = c("la", "le", "lu", "lol"), numbers = c(10, 100, 1000, 10000))
shared_mydata = SharedData$new(mydata)
```

Column {data-width=500}
-----------------------------------------------------------------------

### Tabellen

```{r}
bscols(widths = c(4,4,4),
filter_select("Gebiet", "Gebiet", shared_mydata, ~la, multiple = F),
filter_select("Jahr", "Jahr", shared_mydata, ~Jahr, multiple = F),
filter_select("Tätigkeit", "Tätigkeit", shared_mydata, ~le, multiple = F)
)
DT::datatable(shared_mydata, rownames = FALSE, options=list(columnDefs = list(list(visible=FALSE, targets=c(0:1)))))
```

Column {data-width=500}
-----------------------------------------------------------------------

### Zeitreihe

```{r}
plot_ly(shared_mydata, y = ~numbers, x = ~Jahr)
```

### Altersdiagramm

```{r}

```

数据表按预期工作（尽管我希望有一个预设过滤器，但无法删除整个过滤器）。

是否有可能防止例如过滤器“ Jahr”对绘图产生任何影响而不会失去其他过滤器的过滤效果？有其他替代软件包可以实现这一目标吗？

仪表板中的串扰过滤器可能性

0 个答案: