複数選択で最後のカンマを削除する方法Shiny

Question

私はRの光沢のあるツールを使用していますが、問題が発生しました。私は、複数の選択ボタンを使用すると、私はここで、すべての選択肢の最後にカンマを追加したい、私は何をすべきかです：

UI.R

conditionalPanel("input.Select_Table == 'Demographics'", 
       selectInput(inputId ="demo",label ="select variables you need", multiple = TRUE, 
          choices=c('Respondent_ID','year','month','City','City_Level','Province', 
          'Region','Actual_Age','Age_Level','Household_Income','Personal_Income_Level'))) 

Server.R

output$demo <- renderText(paste(substring(input$Select_Table,1,1),".",input$demo,",")) 

出力は次のように次のようになります。しかし、私は最後の選択の終わりに最後のコンマを望んでいない

D . City , D . year , D . Province , 

（1があること後ろの "D。省、 "）、これまでのところ、私はそれを自動的に削除する方法を見つけることがあります。あなたは私を助けていただけますか？

どうもありがとう、

詩

Answer 1

をあなただけのinput.select_tableを提供didntのとおり。。。私は作業例を取得するためのコードを微調整しているあなたは、基本的collapse= " , "するpaste機能の最後の部分を変更したいカンマの周りのスペースに注意してくださいconditionalPanelは、それはあなたが提供するようなものと同じフォーマットを得ることです：

## ui.R 

shinyUI(fluidPage(

selectInput(inputId ="demo",label ="select variables you need", multiple = TRUE, 
           choices=c('Respondent_ID','year','month','City','City_Level','Province', 
             'Region','Actual_Age','Age_Level','Household_Income','Personal_Income_Level')), 


mainPanel(
    textOutput("demo") 
) 
)) 



## server.R 

shinyServer(function(input, output, session) { 

output$demo <- renderText(paste("D"," .",input$demo, collapse = " , ")) 
}) 

私はOPで提供されるもの波平として"D"の代わりに、あなたのsubstring(input$Select_Table,1,1)を使用。