Running examples in ‘modchart-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: chartex
> ### Title: modchart Examples
> ### Aliases: chartex
> 
> ### ** Examples
> 
> library(shiny)
> library(modchart)
> library(shinydashboard)

Attaching package: ‘shinydashboard’

The following object is masked from ‘package:graphics’:

    box

> library(shinydashboardPlus)

Attaching package: ‘shinydashboardPlus’

The following objects are masked from ‘package:shinydashboard’:

    box, dashboardHeader, dashboardPage, dashboardSidebar, messageItem,
    notificationItem, taskItem

The following object is masked from ‘package:graphics’:

    box

> app<- shinyApp(
+ 	ui= shinyUI(
+  dashboardPagePlus(skin='purple',
+ 		sidebar_fullCollapse=TRUE,
+ 		header=dashboardHeaderPlus(title = 'Charts Demo', enable_rightsidebar = FALSE),
+ 		sidebar=dashboardSidebar(sidebarMenuOutput('sidemenu')),
+ 		body=dashboardBody(uiOutput('mainbody')), 
+ 		rightsidebar=NULL,
+    		footer = NULL
+ 		)
+ 	 ),
+ 	server=shinyServer(function(input, output, session) {
+ 		sink(file=stderr())
+ 	
+ 		options(shiny.maxRequestSize=1*1024^2) # 1MB
+ 	
+ 		output$xl<- renderUI({
+ 			getxlUI('server')
+ 			})
+ 		xl<- callModule(getxl, 'server')
+ 	
+ 		output$charts<- renderUI({	
+ 			if(length(xl$sheets) > 0) {
+ 				title<- xl$sheets[1]
+ 				if(title == 'mtcars' | title == 'airpass2')
+ 					ndim<- 2
+ 				else
+ 					ndim<- 1
+ 				nseries<- 1
+ 				g<- xl2g(xl, ndim=ndim, nseries=nseries)
+ 				callModule(chart, 'server', g)
+ 				chartUI('server', g)
+ 				}
+ 			})
+ 		output$sidemenu<- renderMenu({
+ 			m1<- menuItem( "Upload Excel", menuSubItem("Excel", tabName="xltab"))
+ 			m2<- menuItem( "Create Chart", menuSubItem("Chart", tabName="charttab"))
+ 			sidebarMenu(m1,m2)
+ 			})
+ 
+ 		output$mainbody<- renderUI({
+ 			t1<- list(); t1[[1]]<- tabItem(tabName="xltab", uiOutput("xl"))
+ 			t2<- list(); t2[[1]]<- tabItem(tabName="charttab", uiOutput("charts"))
+ 			do.call(tabItems, c(t1,t2))
+ 			})
+ 		})
+ 	)
Error in dashboardPagePlus(skin = "purple", sidebar_fullCollapse = TRUE,  : 
  could not find function "dashboardPagePlus"
Calls: shinyApp -> uiHttpHandler -> force -> shinyUI
Execution halted