Multi-line textInput?

[Yindeng Jiang]

The textInput in shiny doesn't accept the "return" character. And if I type "\n" in the text box, the slash will be escaped so I end up getting a literal "\\n". Anyone knows a way to get multi-line inputs?

Yindeng

[Kevin Lindquist]

Hello Yindeng,

You can use a textarea tag to get multi-line text input. For example,

ui.R

library(shiny)

shinyUI(
    fluidPage(
        h4("Multi-line text input test"),
        tags$style(type="text/css", "textarea {width:100%}"),
        tags$textarea(id = 'input_text', placeholder = 'Type here', rows = 8, ""),
        verbatimTextOutput("output_text")
    )
)


server.R

library(shiny)

shinyServer(
    function(input, output){
        output$output_text <- reactive({
            input$input_text
        })
    }
)


Kevin

[Vivek Patil]

See this question on SO and the responses it received for an answer to your question: http://stackoverflow.com/questions/14452465/how-to-create-textarea-as-input-in-a-shiny-webapp-in-r

On Thu, Feb 12, 2015 at 10:02 PM, Yindeng Jiang <jiangy...@gmail.com> wrote:

The textInput in shiny doesn't accept the "return" character. And if I type "\n" in the text box, the slash will be escaped so I end up getting a literal "\\n". Anyone knows a way to get multi-line inputs?

Yindeng

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/shiny-discuss/12b6af71-2a76-40b3-88d7-1e992e0690cd%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.

[Yindeng Jiang]

Thank you. This worked great! I created a wrapper as below in case it's useful for others:

textareaInput <- function(inputId, label, value="", placeholder="", rows=2){

  tagList(

    div(strong(label), style="margin-top: 5px;"),

    tags$style(type="text/css", "textarea {width:100%; margin-top: 5px;}"),

    tags$textarea(id = inputId, placeholder = placeholder, rows = rows, value))

}

Yindeng