这是我的代码:
letters <-letters[1:5]
ui <- fluidPage(
do.call(tabsetPanel,
letters %>%
purrr::map(~tabPanel(title = .x,
uiOutput(outputId = .x)))),
)
server <- function(input, output, session) {
1:5 %>% purrr::map( ~ {
output[[paste0(letters[.x])]] <-
renderUI({
h1(letters[.x])
})
})
}
shinyApp(ui, server)
这是我的密码.这里的主要问题是理解服务器函数内部代码的语法.
为什么下面的代码不起作用:
1:5 %>% purrr::map(
~ output[[paste0(letters[.x])]] <-
renderUI({
h1(letters[.x])
})
)
还有，对于这个有效的代码，为什么我需要使用{ } Inside MAP
1:5 %>% purrr::map( ~ {
output[[paste0(letters[.x])]] <-
renderUI({
h1(letters[.x])
})
})
有没有什么可以帮助你理解这个语法？