Thiết lập statuses
Một trong những thực hành UI/UX tốt được nhấn mạnh trong video là sử dụng màu sắc một cách hiệu quả. Như bạn đã thấy, các trạng thái được mã hóa bằng màu có thể được thêm vào các box() và notificationItem() bằng cách thiết lập các đối số phù hợp.
Điều này cho phép bạn dùng các màu được định nghĩa sẵn để giúp người dùng nhanh chóng nhận diện tính chất của thông điệp mà không cần phải chú ý quá nhiều.
Tiếp theo, bạn sẽ thử các trạng thái khác nhau trong shinydashboard.
Trong bài tập này, các thư viện shiny và shinydashboard đã được nạp sẵn cho bạn. Ngoài ra, phần header và sidebar đã được lưu vào sidebar, và server() là một hàm trống.
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
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.
library(shiny)
library(shinydashboard)
sidebar <- dashboardSidebar(
width = 300,
sidebarMenu(
id = "pages",
menuItem("Historical trends",
tabName = "historical"),
menuItem("Profits and Losses (PnLs)",
tabName = "profit",
icon = icon("money-bill-alt"),
badgeLabel = "+2.3%", badgeColor = "green")
)
)
header <- dashboardHeader(
title = "Portfolio dashboard for Sally",
titleWidth = 300,
dropdownMenu(type = "notifications",
# Change status of "Sell alert" from "warning" to "danger"
notificationItem("Sell alert", status = "warning"),
# Set status of "Buy alert" to "success".
notificationItem("Buy alert", ___))
)
body <- dashboardBody()
ui <- dashboardPage(header, sidebar, body)
server <- function(input, output){}
shinyApp(ui, server)