I have the following:
output$count <- renderText({
#some input
paste(\"Your length is:\" , input$length , \"Your weight is:\" , weight ,
\"Your age is:\
Something like this?
app.R
library(shiny)
ui <- shinyUI(fluidPage(
titlePanel("HTML"),
sidebarLayout(
sidebarPanel(
textInput("length",
"Enter your length:"),
textInput("weight",
"Enter your weigth:")
),
mainPanel(
htmlOutput("testHTML")
)
)
))
server <- shinyServer(function(input, output) {
output$testHTML <- renderText({
paste("Your length is: ", input$length, "
", "Your weight is: ", input$weight, "")
})
})
shinyApp(ui = ui, server = server)