R glänzende Größe Boxen

Question

Mein Problem ist, dass ich glänzend sagte, nehmen Sie die ganze Linie (12 Spalten), um c7-Box zu drucken, aber es nutzt nur die Hälfte davon. Kann jemand herausfinden, was das Problem ist? Im Anschluss ist mein Code:

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

standardmäßig, wenn Sie nicht die Breite des box Angabe wird es 6 eingestellt werden. Werfen Sie einen Blick auf ?box

Z. B .:

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)