สร้างหน้าเว็บที่มีรูปแบบที่เปลี่ยนแปลง
fluidPage ( ... , title = NULL , responsive = NULL , theme = NULL ) fluidRow ( ... )
...
|
องค์ประกอบที่จะรวมไว้ในหน้าเว็บ
|
title
|
ชื่อหน้าต่างของเบราเซอร์ (ค่าดีฟอลต์ไปยัง URL ของโฮสต์ของเพจ) นอกจากนี้ยังสามารถตั้งค่าเป็นผลข้างเคียงของฟังก์ชัน titlePanel
|
responsive
|
ตัวเลือกนี้จะเลิกใช้งาน ไม่จำเป็นต้องใช้ Bootstrap 3 อีกต่อไป
|
theme
|
รูปแบบ Bootstrap ทางเลือก (ปกติเป็นไฟล์ css ภายในไดเรกทอรี www) ตัวอย่างเช่นในการใช้ชุดรูปแบบที่อยู่ที่ www/bootstrap.css คุณจะใช้ theme = "bootstrap.css"
|
ลักษณะ
ฟังก์ชั่นสำหรับสร้างเค้าโครงเพจของเหลว เค้าโครงหน้าของเหลวประกอบด้วยแถวซึ่งจะรวมถึงคอลัมน์ แถวมีอยู่เพื่อให้แน่ใจว่าองค์ประกอบของพวกเขาปรากฏในบรรทัดเดียวกัน (ถ้าเบราว์เซอร์มีความกว้างเพียงพอ) คอลัมน์มีจุดประสงค์เพื่อกำหนดพื้นที่ว่างในแนวนอนภายในตารางกว้าง 12 หน่วยซึ่งเป็นองค์ประกอบที่ควรครอบครอง หน้าเว็บของ Fluid จะปรับขนาดส่วนประกอบในแบบเรียลไทม์เพื่อเติมเต็มความกว้างของเบราเซอร์ทั้งหมด
รายละเอียด
ในการสร้างเพจที่เป็นของเหลวให้ใช้ฟังก์ชัน fluidPage และรวมอินสแตนซ์ของ fluidRow และ column ไว้ภายใน นอกจากนี้คุณยังสามารถใช้ฟังก์ชันเค้าโครงระดับสูงเช่น sidebarLayout ฟังก์ชันระดับแถวและคอลัมน์ในระดับต่ำ
ตัวอย่าง
## รียกใช้ตัวอย่างในเซสชัน R แบบโต้ตอบเท่านั้น
if (interactive()) {
# ตัวอย่าง UI กับ fluidPage
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)
# UI แสดงรูปแบบคอลัมน์
ui <- fluidPage(
title = "Hello Shiny!",
fluidRow(
column(width = 4,
"4"
),
column(width = 3, offset = 2,
"3 offset 2"
)
)
)
shinyApp(ui, server = function(input, output) { })
}
ความคิดเห็น
แสดงความคิดเห็น