# NOT RUN {
## Only run examples in interactive R sessions
if (interactive()) {
library(shiny)
shinyApp(
ui = fluidPage(
init(),
fluidRow(
column(3,
dq_helptag(
"This info is visible after an click!<br>
Line breaks are also possible btw...",
trigger = "focus"
),
textInput("importantValue",
tagList("Important Value",
dq_helptag(
"This is an important value, you have to put something in!"
))
))
)),
server = function(input, output) {
}
)
}
# }
Run the code above in your browser using DataLab