我需要在 Shiny 的应用程序中向一系列 textOutput 添加一个 CSS 类。

当我尝试时，例如:

textOutput('text', class = 'error')

我得到:

Warning: Error in textOutput: unused argument (class = "error")

解决方法

一个简单的方法是使用 Shiny 的 tagAppendAttributes 函数。我通常发现将 Shiny 输出对象的 HTML 输出通过管道传输到其中更容易，如下所示:

library(shiny)
library(magrittr)

textOutput("foo") %>% 
  tagAppendAttributes(class = 'error')

这会产生以下输出，其中包含错误类。

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

你也可以用样式做同样的事情

textOutput("foo") %>% 
  tagAppendAttributes(style= 'color:green;')

<div id="foo" class="shiny-text-output" style="color:green;"></div>