我想要valueBox()中的两列。一栏将按行显示描述,另一栏将按描述显示值。第一列的值应为文本,第二列的值应为数字。
我尝试使用fluidrow()并在'fluidrow()'中建立了两列。
library(shiny)
library(shinydashboard)
ui <- shinyUI(fluidPage(
valueBox("Title",fluidRow(
column(HTML("line1: <br> line2: <br> line3: "), status = "primary",
title = "O", width = 6 ,
height = 120),
column(HTML("100 <br> 200 <br> 300"), status = "primary",
title = "B", width = 6 ,
height = 120)
))))
server <- function(input, output, session) {
}
shinyApp(ui, server)
有人可以帮忙吗?
非常感谢。