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

时间:2021-04-09 14:29:26

I have two style modifications in my shiny app on the user side ui.r. How do I combine the calls into a single call?

我在用户端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...

1 个解决方案

#1


2  

You literally place them both in the same string. For example:

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

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

#1


2  

You literally place them both in the same string. For example:

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

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