Могу ли я разделить строки в textAreaInputt?

Я реализовал textAreaInput. Теперь я хочу создать вектор, в котором каждый элемент представляет собой одну строку.

Так что, если пользователь вводит:

Hello
There

Я хочу этот вектор:

c(Hello,There)

Это возможно?

Благодарность

Всего 1 ответ


Вы можете сделать это с помощью unlist(strsplit(input$inp," "))

введите описание изображения здесь

UI

library(shiny)

shinyUI(fluidPage(

  titlePanel("Text Area"),


    ###the plot

    mainPanel(
      textAreaInput('inp', label = "Enter your text"),
      textOutput('text_op1'),
      textOutput('text_op2')
    )
  )
)

сервер

##server

library(shiny)

shinyServer(function(input, output) {

  split_text <- reactive({
    unlist(strsplit(input$inp,"
"))
  })

  output$text_op1 <- renderText({

    split_text()


  })

  output$text_op2 <- renderText({

    #split_text()
    length(split_text())

  })
})

И в случае, если вы хотите отобразить фактический вектор как он есть - paste0("c(",paste0(split_text(),collapse = ","),")")


Есть идеи?

10000