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
)
Arguments
actionButton
s to be used as floating buttons.
Position for the button.
Animation when displaying floating buttons.
Display floating buttons when main button is clicked or hovered.
Id for the FAB button (act like an actionButton
).
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)
}
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4