R&x27中的renderUI；t显示

有时我们希望将内容放在uiOutput/renderUI中。但这并不总是有效的。例如，下面的例子。在我看来，代码1和代码2应该给我相同的GUI。但是，代码#2没有按预期工作。谁能告诉我原因吗？谢谢

代码#1：

库（闪亮）
ui在第二个示例中，
uiOutput
将
navbarMenu
的内容包装在一个div中，类为
“闪亮的html输出”
。但是，此类的div不允许作为
navbarPage
的参数。好了，有两种方法可以解决这个问题

第一个是在服务器端创建整个
navbarPage

library(shiny)

ui <- uiOutput("page")

server <- shinyServer(function(input, output, session) {
  output$page <- renderUI({
    navbarPage("test", navbarMenu("More", tabPanel("Table")))
  })
})

shinyApp(ui, server)

在第二个示例中，
uiOutput
将
navbarMenu
的内容包装在一个div中，类为
“闪亮的html输出”
。但是，此类的div不允许作为
navbarPage
的参数。好了，有两种方法可以解决这个问题

第一个是在服务器端创建整个
navbarPage

library(shiny)

ui <- uiOutput("page")

server <- shinyServer(function(input, output, session) {
  output$page <- renderUI({
    navbarPage("test", navbarMenu("More", tabPanel("Table")))
  })
})

shinyApp(ui, server)

请尝试先设置您的工作目录，如下面的示例所示

setwd（“c:/Users/ID/Desktop/folder”）

您应该获得包含ui.R和server.R位置的工作目录。
请尝试先设置您的工作目录，如下面的示例所示

setwd（“c:/Users/ID/Desktop/folder”）

您应该获得包含ui.R和server.R位置的工作目录。
非常有用。感谢you@Gregor去纤毛很有帮助。感谢you@Gregor纤毛
library(shiny)

ui <- uiOutput("page")

server <- shinyServer(function(input, output, session) {
  output$page <- renderUI({
    navbarPage("test", navbarMenu("More", tabPanel("Table")))
  })
})

shinyApp(ui, server)

library(shiny)

ui <- navbarPage(
  "test", 
  navbarMenu("More", tabPanel("Table", uiOutput("tab_content")))
)

server <- shinyServer(function(input, output, session) {
  output$tab_content <- renderUI({
    "Some content"
  })
})

shinyApp(ui = ui, server = server)