shiny::textAreaInput("id", "Label",
value = "The value", width = "200px",
placeholder = "Placeholder"
)
twTextAreaInput("id", "Label",
value = "The value", width = "200px",
height = "200px", placeholder = "Placeholder",
container_class = "CONTAINER", label_class = "LABEL", input_class = "INPUT"
)
# basic full shiny example
library(shiny)
ui <- fluidPage(
use_tailwind(),
twTextAreaInput(
"text", "A Text",
placeholder = "Here goes a placeholder",
width = "400px", height = "400px",
# Apply tailwind classes
container_class = "w-48 m-4 p-2 border border-gray-200 rounded-md drop-shadow-md",
label_class = "font-serif text-gray-600",
input_class = "drop-shadow-lg font-mono text-gray-600 rounded-md border-amber-400"
),
verbatimTextOutput("value")
)
server <- function(input, output) {
output$value <- renderText(input$text)
}
if (interactive()) shiny::shinyApp(ui_basic, server)
Run the code above in your browser using DataLab