Flexdashboard - 使用反应值的隐藏导航栏选项卡

Question

我可以使用 show_hide 的静态值隐藏导航栏页面，但我无法弄清楚如何使用反应值 r_show_hide() 来隐藏导航栏页面。我也尝试过使用isolate(ifelse...)，然后使用r_show_hide（无括号）以及reactiveVal()，但均无济于事。

还有一个无关的"> 出现。任何帮助将不胜感激。

更新： 我创建了一个问题https://github.com/rstudio/flexdashboard/issues/229

    ---
    title: "-"
    output: flexdashboard::flex_dashboard
    runtime: shiny
    ---

    ```{r setup, include=FALSE}
    library(flexdashboard)
    library(shiny)

    show_hide <- "show" # "hidden"

    r_show_hide <- reactive(ifelse(session$clientData$url_hostname == "127.0.0.1", "hidden", "show"))
    ```

    Does work {.`r show_hide`}
    =============================

    ### Should be `r show_hide`


    Doesn't work {.`r reactive(r_show_hide())`}
    ===============================

    ### Should be `r renderText(r_show_hide())`

Answer 1

好的，这花了我一段时间才弄清楚。

基本问题是 flexdashboard 导航栏的大括号中的 r 个块在非响应式上下文中评估，而构建每个页面内容的 r 个块在响应式上下文中评估。出于这个原因，您不能使用诸如r_show_hide() 之类的响应式来触发导航栏页面的隐藏/显示参数，但您可以在页面内的renderText() 函数中使用r_show_hide()。

所以实际的问题是，如何从非反应式上下文中访问反应式值。答案是isolate()，并解释为here。

下面我提供了一个使用您的代码的示例。

---
title: "-"
output: flexdashboard::flex_dashboard
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)

show_hide <- "show" # "hidden"

r_show_hide <- reactive(ifelse(session$clientData$url_hostname == "127.0.0.1", "hidden", "show"))
```

Does work {.`r show_hide`}
=============================

### Should be `r show_hide`


Doesn't work {.`r isolate(r_show_hide())`}
===============================

### Should be `r renderText(r_show_hide())`