Usage in Shiny

Usage in Shiny

library(shiny)
library(anyhtmlwidget)

esm <- "
function render({ el, model }) {
  let count = () => model.get('count');
  el.style.border = '4px solid red';
  let btn = document.createElement('button');
  btn.innerHTML = `count button ${count()}`;
  btn.addEventListener('click', () => {
    model.set('count', count() + 1);
    model.save_changes();
  });
  model.on('change:count', () => {
    btn.innerHTML = `count is ${count()}`;
  });
  el.appendChild(btn);
}
export default { render };
"

widget <- AnyHtmlWidget$new(.esm = esm, .mode = "shiny", count = 2)


ui <- fluidPage(
  "anyhtmlwidget",
  widgetUI("my_widget"),
  verbatimTextOutput("values"),
  actionButton("go", label = "Go")
)

server <- function(input, output, session) {
  rv <- widgetServer("my_widget", widget)

  output$values <- renderPrint({
    rv$count
  })

  observeEvent(input$go, {
    rv$count <- 999
  })
}

shinyApp(ui, server)

Shiny applications not supported in static R Markdown documents