Bir Shiny olayında birden fazla olay ifadesi nasıl dinlenir?

İki farklı olayın uygulamamdaki çeşitli grafikler / çıktılar tarafından kullanılan verilerin bir güncellemesini tetiklemesini istiyorum. Biri tıklanan bir düğmedir ( input$spec_button) ve diğeri tıklanan nokta üzerindeki bir noktadır ( mainplot.click$click).

Temel olarak, her ikisini de aynı anda listelemek istiyorum, ancak kodu nasıl yazacağımdan emin değilim. İşte şimdi sahip olduğum şey:

sunucuda.R:

data <- eventReactive({mainplot.click$click | input$spec_button}, {
    if(input$spec_button){
      # get data relevant to the button
    } else {
      # get data relevant to the point clicked
    }
  })

Ama if-else cümlesi çalışmıyor

Error in mainplot.click$click | input$spec_button : operations are possible only for numeric, logical or complex types

-> Cümle için kullanabileceğim bir tür eylem birleştirici işlevi var mainplot.click$click | input$spec_buttonmı?

Bunun eski olduğunu biliyorum, ama aynı sorum vardı. Sonunda anladım. Parantez içine bir ifade eklersiniz ve yalnızca olayları / reaktif nesneleri listelersiniz. Benim (kanıtlanmamış) tahminim, Bright'ın basitçe, bu ifade bloğuna standart bir reactivebloğa göre aynı reaktif işaretçi analizini gerçekleştirmesidir .

observeEvent({ 
  input$spec_button
  mainplot.click$click
  1
}, { ... } )

DÜZENLE

İfadedeki son satırın NULL döndürdüğü durumu işlemek için güncellendi. Sabit bir değer döndürmeniz yeterlidir.

Ayrıca:

observeEvent(c( 
  input$spec_button,
  mainplot.click$click
), { ... } )

Bu sorunu reaktif bir nesne oluşturarak çözdüm ve olay değişikliği ifadesinde kullandım. Aşağıdaki gibi:

xxchange <- reactive({
paste(input$filter , input$term)
})

output$mypotput <- eventReactive( xxchange(), {
...
...
...
} )

İşte bulduğum çözüm: temel olarak, boş bir reactiveValuesveri tutucu oluşturun ve ardından değerlerini iki ayrı observeEventörneğe göre değiştirin .

  data <- reactiveValues()
  observeEvent(input$spec_button, {
    data$data <- get.focus.spec(input=input, premise=premise, 
                                itemname=input$dropdown.itemname, spec.info=spec.info)
  })
  observeEvent(mainplot.click$click, {
    data$data <- get.focus.spec(input=input, premise=premise, mainplot=mainplot(),
                                mainplot.click_focus=mainplot.click_focus(),
                                spec.info=spec.info)  
  })

Bu, eylemlerinizi bir vektöre yerleştirerek eventReactive ile yapılabilir.

eventReactive(
  c(input$spec_button, mainplot.click$click), 
{ ... } )

Buradaki fikir, observeEvent'e iletmek istediğiniz koşulu yürütecek reaktif bir işlev oluşturmak ve ardından ifadenin geçerliliğini kontrol etmek için bu reaktif işlevi geçebilirsiniz. Örneğin:

validate_event <- reactive({
    # I have used OR condition here, you can use AND also
    req(input$spec_button) || req(mainplot.click$click)
})

observeEvent(validate_event(), 
    { ... } 
)

Kodlamaya Devam Edin!