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