以逗号分隔输出renderText Shiny

Question

应该很简单。如果您运行这段代码

# Define UI ----------
ui <- fluidPage(

  # Sidebar panel
  sidebarLayout(

    sidebarPanel(),

    # Main panel
    mainPanel(

      textOutput('text')
    )
  )
)

# Define server logic required ------------
server <- function(input, output){
  stopwords <- c('que', 'a', 'de', 'no', 'y', 'me',
                        'la', 'el', 'en')

  output$text <- renderText({stopwords})
}

# Run the application 
shinyApp(ui = ui, server = server)

您将获得以下输出：

我只想要相同的输出，但单词之间用逗号分隔： 'que，a，de，no，y，me，la，el，en'

Answer 1

我想您可以为此使用paste，

output$text <- renderText({
    paste(stopwords, collapse = ', ')
  })

希望有帮助。