Question

我有140 renderUI我要分配给对象。您可以像这样手动执行此操作：

Filter1 <- input$Filter1
...
Filter140 <- input$Filter140

我想让自动更加自动化，但我无法在input$Filter1中获得input$Filter140：paste0。我试过这个：

Filters<-c()
for(i in 1:140){
  Filters<-c(paste0('Filter',i),Filters)
}
for(i in Filters){
assign(i,input[[paste0(i)]])
}

我部分来自this other SO question。但它不起作用.. 欢迎任何帮助。

PS。如果您需要完整的ui.r和server.r示例，请与我们联系。虽然我认为这是足够的信息。

Answer 1

所以我相信assign不会按照您希望的方式处理数据框。试试这个：

Filters <- c()
input <- data.frame(x = "")
for (i in 1:140) {

  Filters <- c(paste0('Filter', i), Filters)

}

tail(Filters)
head(Filters)

for (i in Filters) {

  input[[i]] <- i

}

input <- input[, -1]

如果您希望以相反方向创建列，请更改以下行：

Filters <- c(paste0('Filter', i), Filters)

到

Filters <- c(Filters, paste0('Filter', i))

Answer 2

经过多次调查后，它似乎与assign()和input[[paste0(i)]]函数一起使用： ui.r：

 library(shiny)

shinyUI(fluidPage(

  # Application title
  titlePanel("Old Faithful Geyser Data"),

  # Sidebar with a slider input for number of bins
  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),


    # Show a plot of the generated distribution
    mainPanel(
      selectInput("Filter1","Filter1",choices = c("A","B","C"),selected = "A"),
      selectInput("Filter2","Filter2",choices = c("AB","BC","CD"),selected = "AB"),
      selectInput("Filter3","Filter3",choices = c("ABC","BCD","CDF"),selected = "ABC"),
      plotOutput("distPlot")
    )
  )
))

server.r：

library(shiny)

shinyServer(function(input, output) {

  output$distPlot <- renderPlot({

    # generate bins based on input$bins from ui.R
    x    <- faithful[, 2]
    bins <- seq(min(x), max(x), length.out = input$bins + 1)
    #Filter1<-input$Filter1
    #print(Filter1)
    #print(input$Filter2)
    for(i in c("Filter1","Filter2","Filter3")){
    #Filter3 <- input[[paste0('Filter3')]]
    assign(i,input[[paste0(i)]])
      print(get(i))
    }
    # draw the histogram with the specified number of bins
    hist(x, breaks = bins, col = 'darkgray', border = 'white')



  })

})

在Shiny R中使用paste0函数中的输入表达式

2 个答案: