在Valuebox中使Shiny图标变小

Question

我的闪亮图标对于我的valuebox来说太大了，我知道如何通过添加“ 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

icon()在这种情况下，Shiny 使用了真棒字体。根据这个答案，可以font-size在css中指定缩小图标的大小。要实现闪亮效果，只需在UI主体中添加此行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)

Answer 2

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