En aplicaciones brillantes, podemos agregar código javascript para que se ejecute cuando un widget se haya renderizado usando onRender from library(htmlwidgets) . Lo mismo no parece funcionar para las funciones predeterminadas de render* de shiny. ¿Hay alguna manera de lograr algo similar para estas funciones de renderizado?
La aplicación a continuación muestra alertas cada vez que se procesan los widgets plotly y de folleto, pero no para renderUI y renderPlot .
library(shiny) library(plotly) library(leaflet) library(htmlwidgets) ui <- fluidPage( actionButton('a1','a1'), fluidRow( column( width=6, plotlyOutput('plt'), plotOutput('p2') ), column( width=6, uiOutput('foo'), leafletOutput('map') ) ) ) server <- function(input, output, session) { output$foo <- renderUI({ input$a1 tagList(runif(1)) %>% onRender('function() {alert("renderUI works");}') }) output$plt <- renderPlotly({ input$a1 plot_ly(type='scatter', mode='markers', x=runif(10)) %>% onRender('function() {alert("plotly works");}') }) output$p2 <- renderPlot({ input$a1 hist(runif(50)) %>% onRender('function() {alert("renderPlot works");}') }) output$map <- renderLeaflet({ input$a1 leaflet() %>% addTiles() %>% onRender('function() {alert("leaflet works");}') }) } shinyApp(ui, server)onRender se refiere a renderizar un htmlwidget, no a las funciones render* de shiny.
Puedes usarlo sin brillo .
onRender espera un objeto de widget HTML y, en consecuencia, no funciona con, por ejemplo, etiquetas; consulte ?onRender :
Utilice esta función para complementar la lógica de representación de JavaScript integrada del widget con código JavaScript personalizado adicional, solo para este objeto de widget específico.
Puede usar library(shinyjs) en su lugar para realizar un comportamiento similar:
library(shiny) library(plotly) library(leaflet) library(htmlwidgets) library(shinyjs) ui <- fluidPage( useShinyjs(), actionButton('a1','a1'), fluidRow( column( width=6, plotlyOutput('plt'), plotOutput('p2') ), column( width=6, uiOutput('foo'), leafletOutput('map') ) ) ) server <- function(input, output, session) { output$foo <- renderUI({ input$a1 runjs('alert("renderUI works");') tagList(p("p-tag")) }) output$plt <- renderPlotly({ input$a1 plot_ly(type='scatter', mode='markers', x=runif(10)) %>% onRender('function() {alert("plotly works");}') }) output$p2 <- renderPlot({ input$a1 runjs('alert("renderPlot works");') hist(runif(50)) }) output$map <- renderLeaflet({ input$a1 leaflet() %>% addTiles() %>% onRender('function() {alert("leaflet works");}') }) } shinyApp(ui, server)