sending-html-shiny-serrver

library(shiny)
ui <- function(request){
  tagList(
    tags$button(
      "glop", 
      onclick = "Shiny.setInputValue('cont', document.documentElement.innerHTML)"
    )
  )
}

server <- function(
  input, 
  output, 
  session
){
  
  observeEvent( input$cont , {
    cat(input$cont)
  })
  

}

shinyApp(ui, server)