Я строю flexdashboard с shiny средой выполнения. Я хотел бы включить некоторый код, который зависит от того, какая страница flexdashboard (какая вкладка действительно активна).
Причина в том, что есть некоторые входные данные (например, дата), которые являются общими для всех страниц в моей информационной панели. Но есть и другие элементы, которые имеют отношение только к определенным страницам.
Поэтому я хотел бы использовать одну глобальную боковую панель ввода и изменять ее компоненты в зависимости от текущей активной вкладки. (По какой-то причине flexdashboard не отображает должным образом боковые панели для каждой панели, если присутствует глобальная боковая панель.)
Примерно так:
Sidebar {.sidebar}
=====================================
```{r}
output$inputpane <- renderUI({
x <- list(somesharedinputelements)
if (input$currenttab == "global") x <- c(x, someinputelementonlyappropriatetoonetab)
tagList(x)
)}
uiOutput("inputpane")
```
Заранее спасибо!