在 R/Shiny 中，如何使用 purrr：：map 创建其他面板-解网

问：

这是我的代码。

为什么不工作？

我想我应该使用，但我不知道怎么做。输出应为前 3 个面板和 4 个面板，共 7 个面板do.call

有什么帮助吗？

library(shiny)
library(tidyverse)

tabpanel_function <- function(x){
  tabPanel(paste0("Panel",x))
}

ui <- fluidPage(
  
  tabsetPanel(
    tabPanel("Panela"),
    tabPanel("Panelb"),
    tabPanel("Panelc"),        
     
      1:4 %>% map(~ tabpanel_function(.x))
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

r 闪亮

library(shiny)
library(tidyverse)

tabpanel_function <- function(x){
  tabPanel(paste0("Panel",x))
}

ui <- fluidPage(
  
  tabsetPanel(id = "x",
    tabPanel("Panela"),
    tabPanel("Panelb"),
    tabPanel("Panelc"),        
    
  )
)

server <- function(input, output, session) {
  1:4 %>% map(~ tabpanel_function(.x) %>% appendTab("x", .))
}

shinyApp(ui, server)

编辑

我删除了我之前的错误断言，即在 ui 构造中执行循环是行不通的。有关一种方法的完整演示，请参阅此处（使用与具有相同的输出）。lapplymap

在 R/Shiny 中，如何使用 purrr：：map 创建其他面板

In R/Shiny how to create others panels with purrr::map

评论

编辑

评论