Come posso ottenere un pulsante in Shiny per chiamare sia il codice JavaScript che il codice R in parallelo?

Question

Ho un pulsante HTML in lucido che se cliccato, chiama la funzione JavaScript geocodeAddressStreet(...) in un file .js nella /www directory:

tags$body(tags$input(type = "button", 
        value = "Next", 
        id = "button1", 
        onClick = "geocodeAddressStreet(houseNumber,streetName,addressCity,addressState)"))), 

Comunque io non riesco a capire come ottenere questo pulsante per chiamare un secondo file quando cliccato, diciamo foo.R. Entrambe le procedure funzionano in modo indipendente, ma sembra che non sia possibile aggiungere un elemento inputId a un elemento HTML in Shiny. Al momento abbiamo due pulsanti diversi, uno dei quali chiama il codice R e l'altro chiama il codice JavaScript, ma questa è chiaramente una soluzione poco pratica.

Answer 1

Quindi si desidera avere un pulsante e quando si fa clic, viene chiamata una funzione javascript e un codice R? Sono stato in grado di fare questo con la funzione onclick dal shinyjs package (disclaimer: ho scritto il pacchetto)

library(shinyjs) 

jsCode <- " 
shinyjs.geocodeAddr = function(params) { 
    alert('JavaScript called!'); 
    // geocodeAddressStreet(...) 
} 
" 

runApp(shinyApp(
    ui = fluidPage(
    useShinyjs(), 
    extendShinyjs(text = jsCode), 
    actionButton("btn", "Click me") 
), 
    server = function(input, output, session) { 
    onclick("btn", { 
     js$geocodeAddr() 
     cat("R called as well") 
    }) 
    } 
)) 

In sostanza, la funzione onclick è una funzione R che verrà eseguito quando il pulsante viene premuto. All'interno di esso è ovviamente possibile chiamare facilmente il codice R, ma è anche possibile chiamare il codice JS utilizzando il pacchetto shinyjs - è così che ho effettuato una chiamata a js$geocodeAddr. Guarda la funzione extendShinyjs. In alternativa, invece di utilizzare extendShinyjs(), puoi anche utilizzare il solito approccio di session$sendCustomMessage(...)