จัดวางแถบด้านข้างและพื้นที่หลัก

 sidebarLayout ( sidebarPanel , mainPanel , position = c ( "left" , "right" ) ,

 fluid = TRUE ) 

sidebarPanel
 sidebarPanel ที่มีการควบคุมอินพุต
mainPanel
mainPanel ที่มีเอาท์พุท
position
ตำแหน่งของแถบด้านข้างกับพื้นที่หลัก ("ซ้าย" หรือ "ขวา")
fluid
TRUE ใช้เค้าโครงของเหลว FALSE ใช้รูปแบบคงที่




สร้างเค้าโครงที่มีแถบด้านข้างและพื้นที่หลัก แถบด้านข้างจะแสดงด้วยสีพื้นหลังที่แตกต่างกันและโดยปกติแล้วจะมีตัวควบคุมอินพุต พื้นที่หลักใช้พื้นที่ 2/3 ของความกว้างในแนวนอนและโดยปกติแล้วจะมีเอาท์พุท


ตัวอย่าง

  ## เรียกใช้ตัวอย่างในเซสชัน R แบบโต้ตอบเท่านั้น
 if ( interactive ( ) ) {
 ตัวเลือก ( device.ask.default = FALSE )

 # กำหนด UI
 ui <- fluidPage (

   # ชื่อแอ็พพลิเคชัน
   titlePanel ( "Hello Shiny!" ) ,

   sidebarLayout (

     # แถบด้านข้างที่มีการป้อนข้อมูลแถบเลื่อน
     sidebarPanel (
       sliderInput ( "obs" ,
                   "Number of observations:",
                   min = 0 ,
                   max = 1000 ,
                   value = 500 )
     ) ,

     # แสดงพล็อตการแจกจ่ายที่สร้างขึ้น
     mainPanel (
       plotOutput ( "distPlot" )
     )
   )
 )

 # ตรรกะของเซิร์ฟเวอร์
 server <- function(input, output) {
  output$distPlot <- renderPlot({
    hist(rnorm(input$obs))
  })
}
 # แอปที่สมบูรณ์พร้อม UI และส่วนประกอบเซิร์ฟเวอร์
 shinyApp ( ui , server )
 }