# NOT RUN {
if(interactive()){
library(shiny)
library(shinyMobile)
shiny::shinyApp(
ui = f7Page(
title = "My app",
f7TextArea(
inputId = "textarea",
label = "Text Area",
value = "Lorem ipsum dolor sit amet, consectetur
adipiscing elit, sed do eiusmod tempor incididunt ut
labore et dolore magna aliqua",
placeholder = "Your text here",
resize = TRUE
),
textOutput("value")
),
server = function(input, output) {
output$value <- renderText({ input$textarea })
}
)
}
# }
Run the code above in your browser using DataLab