2017-12-09 7 views
0
erwartet

Ich versuche, eine einfache glänzende Anwendung mit dem folgenden Layout, 2X2 Layoutfluidrow Layout nicht als

Daten1 Daten2
Stats1 stats2

tabBox(title = "Data Review",id= "ttabs", width = 20, height = "420px", 
tabPanel("Data", 
column(3, dataTableOutput("data1")) 
, column(3, verbatimTextOutput("sum1")), 
, column(3, offset = 1,dataTableOutput("data2")) 
, column(3, offset = 1, verbatimTextOutput("sum2")) 
) 

Daten 2 zu bauen und stats2 wie erwartet angezeigt (eine unter der anderen), jedoch erscheinen data1 und stat1 nebeneinander. Nicht sicher, wie Sie den Code aktualisieren, um das erwartete Ergebnis zu erhalten

Antwort

0

Wie wäre es mit fluidRow()?

ui <- fluidPage(
tabBox(title="Data Review", id="ttabs", width=20, height=420, 
    tabPanel("Data", 
     fluidRow(
      column(6, dataTableOutput("data1")), 
      column(6, dataTableOutput("data2"))), 
     fluidRow(
      column(6, verbatimTextOutput("sum1")), 
      column(6, verbatimTextOutput("sum2")) ) 
    ) 
) 

)

Ich hoffe, diesen Code helfen Ihnen.

+0

Arbeitete perfekt. Vielen Dank. – Ashr

Verwandte Themen