fluidrow 레이아웃은

Question

나는 다음과 같은 레이아웃 간단한 반짝 응용 프로그램, 2X2 레이아웃

데이터 1 데이터 2
Stats1이

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")) 
) 

데이터 2 stats2 나타 stats2 구축을 위해 노력하고 예상하지 (한 쪽 아래에 하나씩), 그러나 data1과 stat1이 나란히 나타납니다. 예상 결과를 얻기 위해 코드를 업데이트하는 방법을 잘 모르겠습니다.

Answer 1

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")) ) 
    ) 
) 

)

는이 코드의 도움을 바랍니다.