여러 항목을 선택하여 마지막 쉼표를 삭제하는 방법 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 , 

, 나는 마지막 선택의 끝에서 마지막 쉼표를 원하지 않는 (사람이 될 뒷다리 "D. 성, ")하지만, 지금까지 내가 자동으로 삭제하는 방법을 찾을 수있다. 당신이 좀 도와 주 시겠어요?

고마워,

절

Answer 1

을 당신이 input.select_table를 바로 제공 didnt가로 conditionalPanel 작업 예제를 얻기 위해 코드를 수정했습니다. 기본적으로 paste 함수의 마지막 부분을 collapse= " , "으로 변경하고 싶습니다. 제공 한 것과 동일한 서식을 사용하기 위해 쉼표 주위에 공백을 넣으십시오.

## 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에서 제공하지 않았던 substring(input$Select_Table,1,1) 대신 "D"을 사용했습니다.