Stapeln von Icons - grundlegendes Beispiel

Question

Ich bin neu in R und versuche derzeit, mit Shiny grundlegende Apps zu erstellen. Ich versuche zu verstehen, wie man Icons stapelt; hier ist mein Versuch:

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) 

Diese frei von der hier vorgeschlagenen Lösung angepasst wird, ohne Erfolg: https://github.com/rstudio/shinydashboard/issues/110

ich auch hier sah, aber ich bin nicht erfahren genug, um der Lage sein, es zu verstehen Nun: http://fontawesome.io/examples/

Ich möchte herausfinden, wie man das Verbot-Symbol über die Spitze eines anderen Symbols, in diesem Fall "kommentieren".

Kann mir jemand erklären, ob ich auf dem richtigen Weg bin? Wenn nicht, warum?

Das letzte Mal bearbeitet - funktionierende Version von Original-Code:

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

wenn Sie kompliziertere HTML in der Aktionstaste verwenden Sie nur die Parameter label und ignorieren die Iconparameter wollen. Sie können die Symbole in das Label setzen

Geht das, was Sie wollen?

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") 
      ) 
) 
),