So löschen Sie das letzte Komma in mehreren Auswahl in r Shiny

Question

Ich benutze R glänzende Werkzeuge und ich ein Problem zu treffen. Wenn ich die mehrere Auswahltaste verwenden, ich ein Komma am Ende jeder Auswahl hinzufügen möchten, hier ist das, was ich tue:

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,",")) 

der Ausgang so sein würde:

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

ich jedoch am Ende der letzten Auswahl das letzte Komma nicht will (derjenige sein Hind "D. Province "), aber ich habe finden bisher keinen Weg, um es automatisch zu löschen. Könnten Sie mir bitte helfen?

Vielen Dank,

Verse

Answer 1

Wie Sie die input.select_table nur bieten didnt Die conditionalPanel Ich habe den Code optimiert, um ein funktionierendes Beispiel zu erhalten. Sie möchten im Grunde den letzten Teil der paste-Funktion zu collapse= " , " ändern. Beachten Sie den Abstand um das Komma, um die gleiche Formatierung wie angegeben zu erhalten.

## 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 = " , ")) 
}) 

Ich habe "D" anstelle Ihrer substring(input$Select_Table,1,1) als das nicht im OP zur Verfügung gestellt.