Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- library(shiny)
- example_html <- HTML('<p><b>foo</b></p>')
- ui <- fluidPage(
- textAreaInput('dummy', label = 'dummy', value = example_html)
- )
- server=function(input,output){
- }
- shinyApp(ui,server)
Add Comment
Please, Sign In to add comment