Пользовательский ввод, изменяющий визуализацию в R-shiny

#r #dataframe #shiny #interactive

Вопрос:

У меня есть следующая таблица:

 sid vid     ts    step1 step2 ... stepn

1    10  1625452    a     b     .    n
2    11  1689612    a     b     .    n
3    12  1567098    a     NA    .    NA
4    13  1635977    a     b     .    NA
 

Используя эту таблицу, я использую функцию складной древовидной диаграммы, которая создает визуализацию:

rm(список = ls()) библиотека(flexdashboard) библиотека(dplyr) библиотека(ggplot2) библиотека(сворачиваемое дерево) библиотека(цветовое пространство) библиотека(rsconnect) параметры(блестящий.очистить.ошибки = ЛОЖЬ)

 require(data.tree)
require(collapsibleTree)

df %>%
  group_by(CST...Step.1,CST...Step.2,CST...Step.3,CST...Step.4,CST...Step.5,     CST...Step.6,CST...Step.7,CST...Step.8,CST...Step.9) %>%
  summarize(`n` = n()) %>%
  collapsibleTreeSummary(
    hierarchy = c('CST...Step.1','CST...Step.2','CST...Step.3','CST...Step.4','CST...Step.5','CST...Step.6','CST...Step.7','CST...Step.8','CST...Step.9'),
    root = "Open CST",
    linkLength = 500.0,
    attribute = "n",
    percentOfParent = TRUE,
    nodeSize = "n",
    fontSize = 15.0,
    tooltip = TRUE,
    maxPercent = 40
  )
 

Эта визуализация достигается с помощью пакета flexdashboard и размещается на shiny.apps

Я хочу сделать так, чтобы пользователи могли фильтровать дерево по метке времени, где они выбирают начальный диапазон и конечный диапазон, на графике отображаются только те значения определенного диапазона. Я предполагаю, что это должно было бы быть сделано до collapsibleTreeSummary() того, чтобы для этого требовались только строки, которые находятся за пределами временного диапазона.