# \donttest{
if (interactive()) {
library(shiny)
library(nextGenShinyApps)
shiny::shinyApp(
ui = fluidPage(
style = "8",
custom.bg.color = "white",
sidebar = NULL,
header = NULL,
card(
header = FALSE,
tags$h3("Text input"),
textInput("caption", "Basic"),
textInput("caption", "Basic", style = "clean"),
textInput("caption", "Border - primary",
"Enter sample text",
prepend = "@", border.type = "info"
),
textInput("caption", "Border - primary",
"Enter sample text",
prepend = shiny::icon("lock")
),
textInput("caption", "Border - primary",
"Enter sample text",
append = "%"
),
textInput("caption", "Border - primary",
"Enter sample text",
prepend = shiny::icon("chart"),
append = ".00"
)
)
),
server = function(input, output) {
}
)
}
# }
Run the code above in your browser using DataLab