在闪亮的仪表板中使用 for 循环内框打印文本

如何解决在闪亮的仪表板中使用 for 循环内框打印文本

我在下面有闪亮的仪表板，我想使用屏幕截图中的 "Red1" 循环在 "Red21" 框内打印到 for() 一个在另一个下面的框。 Box() 应使用 renderUI()

创建

library(shiny)
library(shinydashboard)
shinyApp(
  ui = dashboardPage(
    options = list(sidebarExpandOnHover = TRUE),header = dashboardHeader(),sidebar = dashboardSidebar(minified = TRUE,collapsed = TRUE),body = dashboardBody(
      uIoUtput("Box1")
    ),title = "DashboardPage"
  ),server = function(input,output) {
    output$Box1<-renderUI({

        Box(
          for(i in 1:21){
            "Red"[i]
            br()
          },height = 300,width = 5
        )
    })
  }
)

解决方法

box() 可以将列表作为第一个参数，因此您的代码可以像这样重写：

...
box({
  text <- list()
  for(i in 1:21){
    text <- append(text,list(paste("Red",i),br()))
  }
  text
})
...

使用匿名函数（这是）执行此操作对于可读性而言并不是那么好（至少对我而言），因此我建议您事先构建该列表。