드롭다운 메뉴
드롭다운 메뉴를 shinyApp에 추가하는 방법을 살펴봤어요. 이를 통해 앱 사용자는 많은 공간을 차지하지 않으면서 옵션 목록에서 하나를 선택할 수 있어요. 앱에 이미 많은 기능이 들어가 있을 때는 UI 디자인을 간결하게 만드는 데 도움이 돼요.
이번 연습에서는 데이터는 sleep에 저장되어 있고, p라는 이름의 플롯도 저장되어 있어요. 또한 shiny와 tidyverse 라이브러리도 로드되어 있어요. 코드를 완성하면 HTML Viewer에서 shinyApp을 열어 전체 화면으로 확인할 수 있어요.
이 연습은 강의의 일부입니다
shinydashboard로 대시보드 만들기
연습 안내
- "Plot"과 "Table" 두 가지 선택지를 가진
selectInput()을 배치하세요. - "plot"과 "table"이라는 이름의
plotOutput()과tableOutput()을 배치하세요. - 서버에 플롯 출력을 추가하세요.
- 서버에 테이블 출력을 추가하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
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)