我想向我的应用程序添加信息按钮,当悬停时显示工具提示。我有一个工作代码,但按钮的大小太大。有什么方法可以通过 css 或一个更可定制的按钮来编辑它?
谢谢你的帮助
library(shiny)
library(shinyWidgets)
library(shinyBS)
ui <- fluidPage(uiOutput("test_button"))
server <- function(input, output) {
output$test_button <- renderUI({
tipify(
actionBttn(inputId = "id_my_button",
icon = icon("info"),
size = "xs",
style = "material-circle",
color = "primary"),
"This button needs to be smaller!")
})
}
shinyApp(ui, server)