Shiny R 中 verticalProgress 的转置

Question

有没有人看到我们可以在 Shiny 中调用 horizontalProgress 的东西？我发现函数 verticalProgress 对我来说几乎是完美的，不幸的是我需要调换它。也许如何帮助我？也许使用 CSS?

if (interactive()) {
  library(shiny)
  library(shinydashboard)
  shinyApp(
    ui = dashboardPagePlus(
      header = dashboardHeaderPlus(
        enable_rightsidebar = TRUE,
        rightSidebarIcon = "gears"
      ),
      sidebar = dashboardSidebar(),
      body = dashboardBody(
        verticalProgress(
          value = 20,
          status = "danger",
          size = "xs",
          height = "60%"
        )
      ),
      rightsidebar = rightSidebar(),
      title = "Right Sidebar"
    ),
    server = function(input, output) { }
  )
}

Answer 1

您可以在样式中使用 transform :

    div(style="display: inline-block; transform: rotate(10deg);",verticalProgress(
      value = 20,
      status = "danger",
      size = "xs",
      height = "60%"
    ))

或者您可以使用 shinyWidgets 库，其中有 progressBar

if (interactive()) {
  library(shiny)
  library(shinydashboard)
  library(shinydashboardPlus)
  library(shinyWidgets)
  shinyApp(
    ui = dashboardPagePlus(
      header = dashboardHeaderPlus(
        enable_rightsidebar = TRUE,
        rightSidebarIcon = "gears"
      ),
      sidebar = dashboardSidebar(),
      body = dashboardBody(

        column(2,
               progressBar(id = "pb6", value = 20, status = "danger", size = "xs")
        )
      ),
      rightsidebar = rightSidebar(),
      title = "Right Sidebar"
    ),
    server = function(input, output) { }
  )
}

Shiny R 中 verticalProgress 的转置

transposition of verticalProgress in Shiny R

r

progress

shiny