在Valuebox中使Shiny图标变小

Question

我的闪亮图标对于我的数值框来说太大了，我知道如何通过添加“fa-3x”来更大它，但有人可以告诉我如何将其更小吗？谢谢！

 valueBox(
      value = format(movie.avg1, digits = 3),
      subtitle = NULL,  
      icon = if (movie.avg1 >= 3) icon("thumbs-up") else icon("thumbs-down"),
      color = if (movie.avg1 >= 3) "aqua" else "red"
    )

Answer 1

在这种情况下，Shiny icon()使用font-awesome。根据{{​​3}}，可以在css中指定font-size来减小图标的大小。要在闪亮中实现此功能，只需在UI Body tags$head( tags$style( HTML(".fa { font-size: 12px; }") ) )

中添加此行

library("shiny")
library("shinydashboard")

# header
header <- dashboardHeader(title = "Changing the font size of valueBoxes", titleWidth = 450)

# sidebar
sidebar <- dashboardSidebar(disable = TRUE)

# body
body <- dashboardBody(


  tags$head( 
    tags$style(HTML(".fa { font-size: 12px; }"))
  ),
  valueBox(
    value = "3.94",
    subtitle = NULL,  
    icon = icon("thumbs-up")
  )
)

# server
server <- function(input, output) {
}
shinyApp(ui = dashboardPage(header, sidebar, body), server = server)

this answer

Answer 2

尝试设置subtitle = HTML(" ")而不是NULL。这将进入不可见的HTML字符不间断空格，这将添加您需要的垂直空间。