r - 更改 Shiny Action 按钮的形状

Question

任何人都知道如何将 Action 按钮的形状从方形变为 Shiny 的圆形？

library(shiny)

ui <- fluidPage(
  h1("Some text:"),
  tags$head(tags$script(src = "Welcome.js")),
  tags$button(id="intro", 
              type="button", 
              class="btn action-button btn-success btn-lg ",
              strong(HTML('<i class="icon-star">  </i>Some text')))
)

谢谢

直流电

Answer 1

要更改操作按钮的形状，您可以使用 CSS。一种方法是:

.btn {
  display:block;
  height: 300px;
  width: 300px;
  border-radius: 50%;
  border: 1px solid red;
}

，来源: Circle button css .这将创建一个圆形操作按钮。

要在 Shiny 的应用程序中添加 CSS，您可以使用 tags$head(tags$style(HTML(...))) :

可重现的示例:

library(shiny)

ui <- fluidPage(
  tags$head(
    tags$style(HTML("
                  .btn {
                    display:block;
                    height: 60px;
                    width: 60px;
                    border-radius: 50%;
                    border: 1px solid red;

                    }

                    "))
    ),
  actionButton("do", "Go!")
)

server <- function(input, output, session) {
  observeEvent(input$do, {
    print(2)
  })
}

shinyApp(ui, server)