$ 运算符对闪亮的 R 中的原子向量无效

在 psych 包中有一个名为 'alpha' 的函数，它给出了各种统计数据。我想要输出中的特定列，因此我使用代码。此代码在控制台中完美运行，但当我尝试在闪亮中使用它时它不起作用。

library(shiny)
library(mirt)#This contains a dataset called deAyala
library(psych)#This has the alpha() function

server<- shinyServer(
    
    function(input, output) {
        
        output$data <- renderUI({
            
            alpha(deAyala,warnings=FALSE)$item.stats$raw.r #Warning disables the warnings 
            
            
            
        })
        
        
    }
)


ui<- shinyUI(fluidPage(
    titlePanel(title = h4("Output", align="center")),
    sidebarLayout(
        sidebarPanel(
        ),
        
        mainPanel(
            uiOutput("data"),
            
        )
        
    )
    
))


shinyApp(ui = ui, server = server)