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 ,

然而，我不想要最后一个选择结束时的最后一个逗号（背后的一个逗号＆＃34; D.省，＆＃34;），但到目前为止我还没有找到方法自动删除它。你能帮我吗？

非常感谢，

诗

Answer 1

由于你没有提供input.select_table只是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 = " , "))
})

我使用了"D"代替您substring(input$Select_Table,1,1)，因为OP中没有提供。

如何在r Shiny中删除多个select中的最后一个逗号

1 个答案: