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

Question

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

rshiny

3

这是我的代码。

为什么它不起作用？

我认为我应该使用 do.call，但我不知道如何使用。输出应该是前3个面板和第4个面板，总共7个面板。

有任何帮助吗？

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)

- JohnBones JohnBones

请不要在问题本身中添加“解决方案”。如果您使用的方法与下面提供的答案不同，请将您的解决方案作为单独的答案发布。社区可以投票支持他们认为最有用的方法，您可以接受任何您喜欢的答案。 - MrFlick

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Andy Baxter · Accepted Answer

在服务器函数中调用appendTab可能是可行的：

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构建中进行循环不起作用。请参见此处，其中展示了一种方法（使用lapply，其输出与map相同）。