fab_button | R Documentation |
Create a fixed button in page corner with additional button(s) in it
fab_button( ..., position = c("bottom-right", "top-right", "bottom-left", "top-left", "none"), animation = c("slidein", "slidein-spring", "fountain", "zoomin"), toggle = c("hover", "click"), inputId = NULL, label = NULL )
... |
|
position |
Position for the button. |
animation |
Animation when displaying floating buttons. |
toggle |
Display floating buttons when main button is clicked or hovered. |
inputId |
Id for the FAB button (act like an |
label |
Label for main button. |
library(shiny) library(shinymanager) ui <- fluidPage( tags$h1("FAB button"), tags$p("FAB button:"), verbatimTextOutput(outputId = "res_fab"), tags$p("Logout button:"), verbatimTextOutput(outputId = "res_logout"), tags$p("Info button:"), verbatimTextOutput(outputId = "res_info"), fab_button( actionButton( inputId = "logout", label = "Logout", icon = icon("arrow-right-from-bracket") ), actionButton( inputId = "info", label = "Information", icon = icon("info") ), inputId = "fab" ) ) server <- function(input, output, session) { output$res_fab <- renderPrint({ input$fab }) output$res_logout <- renderPrint({ input$logout }) output$res_info <- renderPrint({ input$info }) } if (interactive()) { shinyApp(ui, server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.