Phản ứng có điều kiện Sáng bóng

Question

Biểu thức phản ứng trong các thay đổi lan truyền sáng bóng, nơi chúng cần phải đi. Chúng ta có thể ngăn chặn một số hành vi này với isolate, nhưng chúng ta có thể ngăn chặn các thay đổi được nhân giống dựa trên biểu thức logic của chính chúng ta không?

Ví dụ tôi đưa ra là một phân tán đơn giản và chúng tôi vẽ một hình chữ thập với abline nơi người dùng nhấp vào. Thật không may, Shiny xem xét kết quả là một cốt truyện mới và giá trị nhấp chuột của chúng tôi được đặt lại thành NULL ... mà lần lượt được coi là bản cập nhật cho giá trị được truyền như bình thường. Cốt truyện được vẽ lại và NULL được chuyển đến cả hai đối số của abline.

Hack của tôi (nhận xét bên dưới) là đặt điều kiện trong cuộc gọi renderPlot cập nhật một số biến không phản ứng đối với tọa độ vẽ, chỉ khi giá trị nhấp chuột không phải là NULL. Điều này làm việc tốt cho các lô nhỏ, nhưng nó thực sự dẫn đến cốt truyện được vẽ hai lần.

Cách nào tốt hơn để thực hiện việc này? Có cách nào chính xác cách không?

tập tin Server:

library(shiny) 

shinyServer(function (input, output) 
{ 
    xclick <- yclick <- NULL 
    output$plot <- renderPlot({ 
    #if (!is.null(input$click$x)){ 
     xclick <<- input$click$x 
     yclick <<- input$click$y 
    #} 
    plot(1, 1) 
    abline(v = xclick, h = yclick) 
    }) 
}) 

UI file:

library(shiny) 

shinyUI(
    basicPage(
    plotOutput("plot", click = "click", height = "400px", width = "400px") 
) 
) 

Answer 1

Winston gọi vấn đề này "trạng thái" tích lũy - bạn muốn hiển thị không chỉ là dữ liệu hiện tại, nhưng một cái gì đó được tạo ra bởi những âm mưu trước (nơi tốt nhất để tìm hiểu về điều này là tại https://www.rstudio.com/resources/videos/coordinated-multiple-views-linked-brushing/)

Ý tưởng cơ bản là tạo bộ giá trị phản ứng của riêng bạn và cập nhật chúng khi người dùng điện tử nhấp vào cốt truyện. Chúng sẽ không bị vô hiệu hóa cho đến lần nhấp tiếp theo, vì vậy bạn không nhận được hành vi tròn.

library(shiny) 

shinyApp(
    shinyUI(basicPage(plotOutput("plot", click = "click"))), 
    function(input, output) { 
    click <- reactiveValues(x = NULL, y = NULL) 
    observeEvent(input$click, { 
     click$x <- input$click$x 
     click$y <- input$click$y 
    }) 

    output$plot <- renderPlot({ 
     plot(1, 1) 
     abline(v = click$x, h = click$y) 
    }) 
    } 
)