ปรับแต่ง Reactivity

กรณีศึกษา: การสร้างเว็บแอปพลิเคชันด้วย Shiny ใน R

Dean Attali

Shiny Consultant

ทบทวน Reactivity

x <- reactive({
    y() * input$num1 * input$num2
})

x <- reactive({
    y() * isolate({ input$num1 }) * input$num2
})

x <- reactive({
    y() * isolate({ input$num1 * input$num2 })
})

บางครั้งต้องการ isolate ทุก reactive

x <- reactive({
    isolate({
        y() * input$num1 * input$num2
    })
})

actionButton(inputId, label, ...)

chapter4_4_fine_tune_the_activity.025.png

# After clicking on a button twice
str(input$button)

int 2

เพิ่มปุ่มใน UI

actionButton(inputId = "calculate_x", label = "Calculate x!")

เข้าถึงปุ่มเพื่อให้กลายเป็น dependency

x <- reactive({
    input$calculate_x

    isolate({
        y() * input$num1 * input$num2
    })
})

กรณีศึกษา: การสร้างเว็บแอปพลิเคชันด้วย Shiny ใน R