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

希望对您有所帮助。

通过逗号分隔输出 renderText Shiny

Delimit by comma output renderText Shiny

r

text

shiny

comma