เริ่มต้นใช้งานเริ่มต้นใช้งานได้ฟรี

การตั้งค่า sidebar

sidebar เปรียบได้กับรายการคอร์สหรือเมนูอาหารในร้านอาหาร

ใน sidebar สามารถเพิ่มเมนูด้วย sidebarMenu() และเพิ่มปุ่มหลายปุ่มที่ลิงก์ไปยังหน้าต่าง ๆ ของ dashboard ด้วย menuItem() นอกจากนี้ยังสามารถเพิ่ม input และ output แบบปกติลงใน sidebar ได้ด้วย ลองคิดดูว่าออบเจกต์ใดบ้างที่น่าจะมีประโยชน์ใน sidebar ของ dashboard ที่แสดงข้อมูลฟุตบอล

ในแบบฝึกหัดนี้ จะได้ฝึกเพิ่มออบเจกต์บางส่วนเหล่านั้นลงใน sidebar ของ dashboard

โหลดแพ็กเกจ shiny และ shinydashboard ไว้ให้แล้ว และได้เก็บ header ของ dashboard ไว้ในตัวแปร header เรียบร้อยแล้ว

แบบฝึกหัดนี้เป็นส่วนหนึ่งของหลักสูตร

การสร้างแดชบอร์ดด้วย shinydashboard

ดูคอร์ส

แบบฝึกหัดเชิงโต้ตอบแบบลงมือทำ

ลองทำแบบฝึกหัดนี้โดยเติมโค้ดตัวอย่างนี้ให้สมบูรณ์

sidebar <- dashboardSidebar(
  # Set up a sidebar menu with width 400
  ___(
    width = ___,
    id = "pages",
 	# Add a tab button called "Match details"
    ___(___, tabName = "matches", icon = ___,
             badgeLabel = "New content!", badgeColor = ___)
  )
)

body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)
แก้ไขและรันโค้ด