блестящая ошибка: неиспользованные аргументы (main = "Smear plot", de.tags = dgeChangedGenes ())

Question

Я пытаюсь модулировать блестящее приложение, но я не понимаю, в чем проблема с этой ошибкой:

error: unused arguments (main = "Smear plot", de.tags = dgeChangedGenes())

Вот мой код:

### UI
### -------------------------------------------------------------------- ###
plotSmearOutput <- function(id) {
  # Create a namespace function using the provided id
  ns <- NS(id)

  tagList(
    fluidRow(plotOutput(ns("deSmear"))),
    br(),
    fluidRow(actionButton(ns("runGlimmaSmear"), label = "Glimma Smear"))
  )
}


### SERVER
### -------------------------------------------------------------------- ###
plotSmear <- function(input, output, session, lrtModel, dgeChangedGenes) {

  output$deSmear <- renderPlot({
    # print(dgeChangedGenes())
    if(!is.null(lrtModel())){
    plotSmear(lrtModel(), main = "Smear plot", de.tags = dgeChangedGenes())
    }
  })

}

lrtModel и dgeChangedGenes - это реактивные значения, созданные другим модулем.

plotSmear - это функция из пакета edgeR.

Я попытался проверить, У меня могут быть пропущенные или лишние скобки или скобки, но либо я их не нашел, либо их просто нет.

Знаете, в чем может быть проблема?

Спасибо много.