R 闪亮浆纱盒

Question

我的问题是，我告诉 shiny 使用所有行（12 列）来打印 c7 框，但它只使用了一半。任何人都可以找出问题所在吗？以下是我的代码：

 library(shinydashboard)
 library(shiny)
 library(readr)
 library(rsconnect)
 header=dashboardHeader(title="App")
 sidebar=dashboardSidebar(sidebarMenu(
 menuItem("Stack", tabName = "a", icon = icon("dashboard"))))
 c7=column(12,box(title="Prediction Box",status="warning",solidHeader=FALSE,
            textInput("text", label = h3("Write something :"), value = ""),actionButton("do","Go")))
 body=dashboardBody(tabItems(tabItem(tabName="a",fluidRow(c7))))
 ui <- dashboardPage(header,sidebar,body)

 server <- function(input, output){
 }
shinyApp(ui,server)

Answer 1

默认情况下，如果您未指定 box 的宽度，它将设置为 6。看看?box

例如：

library(shinydashboard)
library(shiny)

header=dashboardHeader(title="App")
sidebar=dashboardSidebar(sidebarMenu(menuItem("Stack", tabName = "a", icon = icon("dashboard"))))

?box
c7=column(12,box(width=12,title="Prediction Box",status="warning",solidHeader=FALSE,
                 textInput("text", label = h3("Write something :"), value = ""),actionButton("do","Go")))


body=dashboardBody(tabItems(tabItem(tabName="a",fluidRow(c7))))
ui <- dashboardPage(header,sidebar,body)

server <- function(input, output){
}
shinyApp(ui,server)

R 闪亮浆纱盒

R shiny sizing boxes

r

shiny

shinydashboard