Menu thả xuống
Bạn đã thấy cách thêm menu thả xuống vào một shinyApp. Điều này cho phép người dùng chọn một tùy chọn từ danh sách trong khi chỉ chiếm rất ít không gian. Đây có thể là một thiết kế UI tốt nếu app đã có nhiều tính năng khác.
Trong bài tập này, dữ liệu đã được lưu dưới tên sleep và một biểu đồ tên p cũng đã được lưu. Các thư viện shiny và tidyverse cũng đã được nạp. Khi hoàn thành mã, bạn có thể mở shinyApp trong HTML Viewer để có cái nhìn đầy đủ hơn.
Bài tập này là một phần của khóa học
Xây dựng Dashboard với shinydashboard
Hướng dẫn bài tập
- Đặt một
selectInput()với hai lựa chọn tên "Plot" và "Table". - Đặt một
plotOutput()vàtableOutput()lần lượt tên "plot" và "table". - Thêm đầu ra biểu đồ vào server.
- Thêm đầu ra bảng vào server.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
ui <- fluidPage(
titlePanel("Sleeping habits in America"),
# Place a selectInput with two choices, "Plot" and "Table"
___("choice", "Choose an output",
choices = ___),
# Place plot and table outputs called "plot" and "table"
___("plot"), ___)
server <- function(input, output) {
# Add renderPlot
output$plot <- ___({
if(input$choice == "Plot") p
})
# Add renderTable
output$___ <- ___({
if(input$choice == "Table") sleep
}) }
shinyApp(ui, server)