r - 闪亮的错误:未使用的参数(main = "Smear plot",de.tags = dgeChangedGenes())
问题描述
我正在尝试模块化一个闪亮的应用程序,但我不明白这个错误的问题是什么:
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
包中的一个函数。
我试图检查我是否可能缺少或多余的括号或括号,但要么我没有找到它,要么我没有。
你知道这里有什么问题吗?
非常感谢。