Отображение valueBox на основе select_filter (перекрестная связь) - PullRequest
Новая
       12

Отображение valueBox на основе select_filter (перекрестная связь)

0 голосов
/ 17 мая 2019

В моем коде 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 на основе моего фильтра

...