Shinydashboard 错误将函数传递给变量

Question

我打算构建一个复杂的应用程序，理想情况下我想将部分拆分成更简单的部分，以便更容易调试和阅读我的代码。但是，我在尝试实施该方法时遇到错误。我是否必须为此使用 source() 函数而不是传递变量？最后，在尝试构建复杂的应用程序时，您推荐哪种方法？

library(shiny)
library(shinydashboard)

ui <- dashboardPage(header = Header_app, sidebar = Sidebar_app, body = Body_app)

Header_app <- dashboardHeader(title = "Hello")
Sidebar_app <- dashboardSidebar()
Body_app <- dashboardBody()

server <- function(input, output) {}

shinyApp(ui, server)

我得到的错误是：

tagAssert(header, type = "header", class = "main-header") 错误：找不到对象 'Header_app'

Answer 1

没有错，你只需要在访问它们之前声明对象，即在 ui:

之前声明它

library(shiny)
library(shinydashboard)

Header_app <- dashboardHeader(title = "Hello")
Sidebar_app <- dashboardSidebar()
Body_app <- dashboardBody()

ui <- dashboardPage(header = Header_app, sidebar = Sidebar_app, body = Body_app)

server <- function(input, output) {}

shinyApp(ui, server)

Shinydashboard 错误将函数传递给变量

Shinydashboard error passing functions to variables

r

shiny

shinydashboard