时间戳

首页 > 解决方案 > Shiny R中verticalProgress的转置

r - Shiny R中verticalProgress的转置

问题描述

有没有人在 Shiny 中看到过一些我们可以称之为 Horizo​​ntalProgress 的东西？我发现函数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) { }
  )
}

标签： rshinyprogress

解决方案

您可以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) { }
  )
}

推荐阅读