r - 从 textOutput() 函数中提取文本

Question

Shiny 的textOutput()返回 HTML 代码。我需要存储在 textOutput() 函数下的文本（或值）是什么。例如： textOutput('login_message') 返回

<div id="login_message" class="shiny-text-output"></div>

相反，我需要TRUE / FALSE（如下面的代码所示）。

```{r, context = 'server'}
output$login_message <- renderText({

current_user <- session$userData$current_user()$displayName
if(!is.null(current_user)) {TRUE} else {FALSE}

})

我测试了代码，它工作正常。

```{r}
textOutput('login_message')

我希望在eval =中使用 TRUE/FALSE，以便我可以根据闪亮的服务器部分的值隐藏块。

```{r q1, echo = FALSE, eval= textOutput('login_message') }

注意：我使用的是shiny_prerendered markdown

标签： rshinyr-markdown