在Shiny中包含多个css语句

Question

我试图在我的

css

应用程序中包含两个

shiny

语句，我知道这两个语句都是有效的，但只有第一个被包含（我知道这一点是因为我尝试将其切换）。我做错了什么？

library(shiny)
library(bslib)
library(tidyverse)
library(shinyWidgets)

ui <- page_fluid(
  tags$style(".noGap {gap: 0rem};
                  .sw-input-icon {width: 75px};"),
  
  numericInputIcon("height", "Plot Dimension", 400, icon = "Height:"),
  numericInputIcon("width", NULL, 400, icon = "Width:"),
  
  layout_column_wrap(width = 1/2, class = "noGap",
                     card_body(actionButton("a", "a")),
                     card_body(actionButton("b", "b")))
 
)

server <- function(input, output, session) {
  
}

shinyApp（用户界面，服务器）

Answer 1

在上面的示例中，分号的位置是错误的：

library(shiny)
library(bslib)
library(tidyverse)
library(shinyWidgets)

ui <- page_fluid(
  tags$style(HTML(".noGap {gap: 0rem;}
                   .sw-input-icon {width: 75px;}")),
  
  numericInputIcon("height", "Plot Dimension", 400, icon = "Height:"),
  numericInputIcon("width", NULL, 400, icon = "Width:"),
  
  layout_column_wrap(width = 1/2, class = "noGap",
                     card_body(actionButton("a", "a")),
                     card_body(actionButton("b", "b")))
  
)

server <- function(input, output, session) {}

shinyApp(ui, server)