В моем коде Rmarkdown / flexdashboard я хочу сгенерировать valueBox, отображающий сумму затрат на основе фильтра. Я построил этот фильтр с помощью перекрестных помех, см. Код ниже. Тем не менее, я не могу принять фильтр во внимание, и если я это сделаю, я получаю тонны ошибок.
Если попытаться вытащить фильтры из разных данных, sd (shareddata) и из моего старого showcase_df.
---
title: "test"
output:
flexdashboard::flex_dashboard:
orientation: columns
---
Column {data-width=150}
---------
```{r}
library(crosstalk)
library(flexdashboard)
library(dplyr)
library(plotly)
showcase_df <- data.frame(c("A", "B", "A", "B", "A", "B"), c(1,5,3,2,4,1))
colnames(showcase_df) <- c("category", "costs")
shared_data <- SharedData$new(showcase_df)
filter_select("showcase_filter", "A or B?", shared_data, showcase_df$category)
valueBox(sum(showcase_df$costs))
```
Я тоже пробовал valueBox(sum(sd$costs))
и так далее. Я получаю сообщения об ошибках, в основном «объект типа« замыкание »не является поднабором. Подводя итог, я хотел бы построить valueBox на основе моего фильтра