如何更改某些textOutput元素的字体？

Question

在server.R中，我有一堆本周的指标存储在输出中，以及之前测量的指标。

output$x1_current_week  <- renderText(values[['x1']])
output$x2_current_week  <- renderText(values[['x2']])
...
output$x1_previous_week <- renderText(values_previous_week[['x1']])
output$x2_previous_week <- renderText(values_previous_week[['x2']])
...

在我的ui.R中，我希望使用css中定义的自定义字体/颜色以及使用相同的前一周，在当前周中显示当前和上周的值。字体只是普通的HTML。

以下显示的是我想要实现的目标。我已经对前一周的值进行了硬编码。

实现此目的的ui代码如下

box(
    ...
    html("<p align='center'>x2</p>"),
    h3(textOutput('x2_current_week'), align='center'),
    html("<p align='center'>previous week: A</br>")
   )

如何在html显示的字体中打印前一周的值并在值周围添加文字？我尝试过使用paste（），但textOutput是唯一显示的部分。

Answer 1

您可以使用样式标记向元素添加CSS。 （或者将它们包含在CSS文件中，请参阅here。）我认为这可以指导您朝着正确的方向前进：

~remoteAppUrl

希望这有帮助！