When I write the below code in .html and execute, it works fine
<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>
But, when I write the same in shiny, it does not. Can anyone help me on how to execute it?
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)
The problem were the quotes. Try the following
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>")
)
Don't use tags$head() because that will place the code in the <head> tag