## Only run examples in interactive R sessions
if (interactive()){
library(shiny)
library(shiny.semantic)
ui <- shinyUI(semanticPage(
form(
field(
tags$label("Name"),
text_input("name", value = "", type = "text", placeholder = "Enter Name...")
),
# error field
field(
class = "error",
tags$label("Name"),
text_input("name", value = "", type = "text", placeholder = "Enter Name...")
),
# disabled
field(
class = "disabled",
tags$label("Name"),
text_input("name", value = "", type = "text", placeholder = "Enter Name...")
)
)
))
server <- shinyServer(function(input, output) {
})
shinyApp(ui, server)
}
Run the code above in your browser using DataLab