การใส่ input หลายรายการ
ใส่ input ได้มากกว่าหนึ่งรายการ สมมติว่าต้องการให้ผู้ใช้แอปเลือกจำนวนชั่วโมงนอนหลับเฉลี่ย รวมถึงระบุปีที่สนใจด้วย
สำหรับเป้าหมายนี้ ให้เพิ่ม sliderInput() อีกตัวใน ui โดยกำหนดค่าให้เป็นช่วงปีที่ต้องการ
ในแบบฝึกหัดนี้ ไลบรารี shiny ถูกโหลดไว้ให้แล้ว
แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร
การสร้างแดชบอร์ดด้วย shinydashboard
คำแนะนำการฝึกหัด
- เพิ่ม
sliderInput()อีกตัวเป็น input ที่สองของ shinyApp และตั้งป้ายกำกับเป็น "yearlabel" - กำหนดช่วงตัวเลขให้อยู่ระหว่าง
2003ถึง2017
แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ
ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์
ui <- fluidPage(
titlePanel("Sleeping habits in America"),
sliderInput("sliderlabel",
"Average hours of sleep",
min = 7.5, max = 11,
value = 8, step = 0.5),
# Add another sliderInput and label the input as "yearlabel"
___(___,
"Year",
# Set the number range to be between 2003 and 2017
___, ___,
value = 2004, step = 1, sep = ""))
server <- function(input, output, session) {
}
shinyApp(ui, server)