動的UIをソーシングすると「TRUE」が光ります

Question

光沢のあるアプリの動的UIを取得するためにthis exampleを使用しました。サイドバーパネルのソースを取得しようとしています。しかし、私がこれをすると、私はサイドバーに醜い「TRUE」を得ます。 誰でも、sourceme.rテキストをアプリケーションに取り込まずにTRUEを取り除く方法を知っています。多分sourceは機能を使用する必要がありますか？

require(shiny) 
require(shinydashboard) 


mainbody <- div(tabItems(
    tabItem(tabName = "t_item1", class = "active", box(title = "Item 1 information")), 
    tabItem(tabName = "t_item2", box(title = "Item 2 information")), 
    tabItem(tabName = "t_item3", box(title = "Item 3 information")) 
) 
) 

header <- dashboardHeader(title = "dashboard header") 

sidebar <- dashboardSidebar(uiOutput("sidebarpanel")) 

body <- dashboardBody(uiOutput("body")) 

ui <- dashboardPage(header, sidebar, body) 

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

    output$sidebarpanel <- renderUI({ 
    # if (USER$Logged == TRUE) { 

    # div(
     source('~/sourceme.r') 
    #  sidebarMenu(
    #  menuItem("Item 1", tabName = "t_item1", icon = icon("line-chart")), 
    #  menuItem("Item 2", tabName = "t_item2", icon = icon("users")), 
    #  menuItem("item 3", tabName = "t_item3", icon = icon("dollar")) 
    # ) 
     #) 
    }) 
    output$body <- renderUI({ 

     mainbody 
    }) 
} 

shinyApp(ui, server) 

sourceme.r：

sidebarMenu(
    menuItem("Item 1", tabName = "t_item1", icon = icon("line-chart"), selected = TRUE), 
    menuItem("Item 2", tabName = "t_item2", icon = icon("users")), 
    menuItem("item 3", tabName = "t_item3", icon = icon("dollar")) 
) 

Answer 1

sidebarMenuを返すsourceme.r機能の内容を確認します。次にsourceコールをserver関数の外に置き、server関数内の新しい関数を呼び出してsidebarMenuを返します。