Ошибка в модуле: неиспользуемые аргументы (childScope $ output, childScope)

Question

Я пытаюсь создать модуль для компонентов пользовательского интерфейса для моего приложения Shiny, но я продолжал сталкиваться с ошибкой, когда он говорит неиспользуемые аргументы (childScope $ output, childScope)

Я не мог понять, что пошло не так.Код работал нормально до моей попытки создать модуль для chartUI

Ниже приведено извлечение кода:

library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(shinydashboardPlus)
library(highcharter)
library(formattable)
library(lubridate)

chartUI <- function(id) {
  ns <- NS(id)
  tagList(
    verbatimTextOutput("Select group"),
    selectInput(ns("freq"),"Select frequency:",
                choices = list("Yearly" = "Y","Half yearly" = "H","Quarterly" = "Q",
                               "Monthly"="M"), selected = "Yearly", multiple = FALSE),
    dateInput(ns("dates"), "Select start date:",format = "yyyy-mm-dd", startview = "month", value = dmy("1/1/2014"))
  )  
}  

ui <- shinyUI(
  ui = dashboardPagePlus(skin = "red",
                         header = dashboardHeaderPlus(
                           title = "TITLE",
                           titleWidth = 700
                         ),
                         dashboardSidebar(),
                         body = dashboardBody(
                          boxPlus(
                             width = NULL,
                             title = "CHART", 
                             closable = TRUE, 
                             status = "primary", 
                             solidHeader = TRUE, 
                             collapsible = TRUE,
                             enable_sidebar = TRUE,
                             sidebar_width = 15,
                             sidebar_start_open =  FALSE,
                             sidebar_content = chartUI("chartui1"),
                             highchartOutput("")
                           ),

                           boxPlus(
                             title = "TITLE", 
                             closable = TRUE, 
                             width = NULL,
                             enable_label = TRUE,
                             label_text = 1,
                             label_status = "info",
                             status = "primary", 
                             solidHeader = TRUE, 
                             collapsible = TRUE,
                             box(formattableOutput(""))  
                           )
                         ),
                         title = "DashboardPage"
  )
)

server <- shinyServer(function(input, output) {
  callModule(chartUI, "chartui1")
})

shinyApp(ui, server)