Надеюсь, что этот пост хорошо вас и вашей семьи.
В настоящее время у меня есть глобальная боковая панель для всех страниц в моем приложении flexdashboard, но я пытаюсь условно отобразить указанный c shiny только тогда, когда пользователь переходит на указанную c страницу через navbar. Я попробовал воспроизводимый код ниже, но я не могу заставить его работать. Я что-то упускаю? Я знаю, что могу создать отдельную боковую панель для каждой страницы, но большинство входных данных на панели инструментов совместно используются несколькими страницами.
---
title: "Multiple Pages"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: fill
runtime: shiny
---
Sidebar {.sidebar data-width=300}
=====================================
```{r}
selectInput(inputId = "id1", label = "Input 1", choices = c("A","B","C"), selected = "A")
selectInput(inputId = "id2", label = "Input 2", choices = c("A","B","C"), selected = "A")
conditionalPanel(
condition = "input.navbar == 'Page 2'",
selectInput(inputId = "id3", label = "Input 3", choices = c("A","B","C"), selected = "B")
)
```
Page 1
=====================================
Column {data-width=600}
-------------------------------------
### Chart 1
```{r}
```
Column {data-width=400}
-------------------------------------
### Chart 2
```{r}
```
### Chart 3
```{r}
```
Page 2 {data-orientation=rows}
=====================================
Row {data-height=600}
-------------------------------------
### Chart 1
```{r}
```
Row {data-height=400}
-------------------------------------
### Chart 2
```{r}
```
### Chart 3
```{r}
```
Заранее спасибо за помощь.