Cuando escribo el siguiente código en .html y lo ejecuto, funciona bien
<h1>Change the HTML content</h1> <h2 id="hcontent">Hello Manu</h2> <h3>Welcome</h3> <button type="button" onclick="document.getElementById('hcontent').innerHTML='Hello Mr. Manu'">Click here</button>Pero, cuando escribo lo mismo en shiny, no lo hace. ¿Alguien puede ayudarme sobre cómo ejecutarlo?
library(shiny) library(shinyjs) # source("myfun.R") ui <- fluidPage( useShinyjs(), tags$head(HTML("<h1> Chnge the html content </h1> <h2 id = 'hcontent'> Hello Vinay </h2> <h3> Welcome </h3> <button type = 'button' onclick='document.getElementById('hcontent').innerHTML='Hello Mr Vinay'>Click here </button>")) ) server <- function(input, output, session) { } shinyApp(ui, server)El problema eran las comillas. Prueba lo siguiente
HTML("<h1>Change the HTML content</h1> <h2 id=\"hcontent\">Hello Vinay</h2> <h3>Welcome</h3> <button type=\"button\" onclick='document.getElementById(\"hcontent\").innerHTML=\"Hello Mr. Vinay\"'>Click here</button>") ) No use tags$head() porque eso colocará el código en la etiqueta <head>