Thêm input đơn giản để chỉnh sửa biểu đồ

Nghiên cứu tình huống: Xây dựng ứng dụng web với Shiny trong R

Dean Attali

Shiny Consultant

Ứng dụng biểu đồ Gapminder

Text input

ui <- fluidPage( 
    textInput(inputId = "package", 
              label = "Gói R bạn yêu thích là gì?",
              value = "shiny")
)

server <- function(input, output) {}

shinyApp(ui, server)

Ô nhập văn bản

str(input$package)

chr "shiny"

Numeric input

numericInput("years", "Bạn đã dùng R bao nhiêu năm?",
             value = 4, min = 0, max = 25)

Ô nhập số

str(input$years)

int 4

Checkbox

checkboxInput("agree", "Tôi đồng ý với điều khoản và điều kiện",
              value = TRUE)

Ô chọn

str(input$agree)

logi TRUE

Ayo berlatih!

Nghiên cứu tình huống: Xây dựng ứng dụng web với Shiny trong R