Question

我是R的新手，目前正在尝试使用Shiny来构建基本应用。我想了解如何堆叠图标;这是我的尝试：

library(shiny)

ui <- fluidPage(  
  h5("Hello there"),                                          
  br(),                                                       

  actionButton(inputId = "ClickonMe", label = (
    "test stack",
    icon = icon("commenting","fa-2x", lib = "font-awesome"),
    icon("ban", "fa-stack-1x", lib = "font-awesome"),
    span(shiny::icon("fa fa-user-ban"))
  ))

  mainPanel(verbatimTextOutput("Response_text"))
)

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

shinyApp(ui, server)

这可以从这里提出的解决方案中自由改编，但无济于事：https://github.com/rstudio/shinydashboard/issues/110

我也看过这里，但我没有足够的经验去理解它： http://fontawesome.io/examples/

我想知道如何将禁止图标放在另一个图标的顶部，在这种情况下＆＃34;评论＆＃34;。

如果我走在正确的道路上，有人可以向我解释一下吗？如果没有，为什么？

上次修改 - 原始代码的工作版本：

    library(shiny)

    ui <- fluidPage(  
      h5("Hello there"),                                          
      br(),                                                       

  actionButton(inputId = "ClickonMe", label = div(
    tags$span("test stack"),
    tags$span(class = "fa-stack",
              icon("ban",
                   "fa-stack-2x", 
                   lib = "font-awesome"),
              shiny::icon("fa fa-commenting",class = "fa-stack-1x"), style = "color:red"
    )
  )
  )

      mainPanel(verbatimTextOutput("Response_text"))
    )

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

    shinyApp(ui, server)

Answer 1

如果您想在操作按钮中使用更复杂的HTML，请仅使用label参数并忽略icon参数。您可以将图标放在标签

中

这样做你想要的吗？

actionButton(inputId = "ClickonMe", label = div(
  tags$span("test stack"),
  tags$span(class = "fa-stack",
            icon("commenting",
                 "fa-stack-2x", 
                 lib = "font-awesome"),
            shiny::icon("fa fa-user-plus",class = "fa-stack-1x")
            )
  )
),

堆叠图标 - 基本示例

1 个答案: