RStudio Connect 在更新时将 CSS 粘贴到单元格中

Question

我正在申请休假。该应用程序的首页如下所示：

如您所见，在右下角有一列名为“已接受？”它以相应的颜色显示“OK”或“DENIED”。当我接受请求时，它将显示以下内容：

如您所见，粘贴 CSS 时并未实际格式化其中的文本。当我运行在本地应用程序时，这不会发生，只在服务器上。一旦我重新加载页面，它将再次正确显示：

究竟是什么导致了这个问题？有办法解决吗？

Answer 1

如果您正在使用 renderTable，请尝试向其中添加 sanitize.text.function

output$table1<- renderTable({
   data()
}, sanitize.text.function = function(x) x)

RStudio Connect pastes CSS in cell on update