Case Studies: створення вебзастосунків із Shiny в R
Dean Attali
Shiny Consultant
reactive() і input$ є реактивнимиx <- reactive({
y() * input$num1 * input$num2
})
isolate(), щоб не створювати реактивну залежністьisolate() змінюється, нічого не відбуваєтьсяx <- reactive({
y() * isolate({ input$num1 }) * input$num2
})
x <- reactive({
y() * isolate({ input$num1 * input$num2 })
})
Іноді потрібно ізолювати всі реактиви
x <- reactive({
isolate({
y() * input$num1 * input$num2
})
})
Потрібен спосіб запускати x за запитом
actionButton(inputId, label, ...)

# Після двох кліків по кнопці
str(input$button)
int 2
Доступ до значення кнопки в сервері запускає реактивність
Додайте кнопку в UI
actionButton(inputId = "calculate_x", label = "Calculate x!")
Зверніться до кнопки, щоб зробити її залежністю
x <- reactive({
input$calculate_x
isolate({
y() * input$num1 * input$num2
})
})
Case Studies: створення вебзастосунків із Shiny в R