用逗号分隔输出 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 = ', ')
  })

希望对你有帮助。