R/Shiny/bs4DashでInfoBox

6308 ワード
R Shiny bs4Dash AdminLTE R テキストリンク

こんな感じ。

library(shiny)
library(bs4Dash)

ui <- bs4DashPage(
  navbar = bs4DashNavbar(),
  sidebar = bs4DashSidebar(
    bs4SidebarMenu(
    )
  ),
  body = bs4DashBody(
    fluidRow(
      bs4InfoBox(
        title = "Sepal.Length",
        value = iris$Sepal.Length[nrow(iris)],
        icon = "pie-chart",
        status = "primary",
        width = 4
      ),
      bs4InfoBoxOutput(
        outputId = "ib",
        width = 8
      )
    )
  ),
  controlbar = bs4DashControlbar(),
  footer = bs4DashFooter(),
  title = "yono2844"
)

server <- function(input, output, session) {
  output$ib <- renderbs4InfoBox(expr = {
    bs4InfoBox(
      title = "Sepal.Width",
      value = iris$Sepal.Width[nrow(iris)],
      icon = "bar-chart",
      status = "warning"
    )
  })
}

shinyApp(ui = ui, server = server)