如何在R + Shiny中组合2个标签

Question

我在用户端ui.r的闪亮应用中进行了两次样式修改。如何将呼叫合并为一个呼叫？

shinyUI(fluidPage(

## Make Lines Black
tags$head(tags$style(HTML("hr {border-top: 1px solid #000000;}")) ),

## Hide the ``logout'' popup
tags$head(tags$style(HTML('.shiny-server-account { display: none; }'))),

### MORE CODE...

Answer 1

你确实将它们放在同一个字符串中。例如：

css <- "
hr {border-top: 1px solid #000000;}
.shiny-server-account { display: none; }
"
...
tags$head(tags$style(HTML(css)))