$ operator 对于 shiny R 中的原子向量无效

Question

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

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)

Answer 1

您可以使用 renderTable 或 renderText 来显示输出，而不是 renderUI。

library(shiny)

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

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

shinyApp(ui = ui, server = server)

$ operator 对于 shiny R 中的原子向量无效

$ operator is invalid for atomic vectors in shiny R

r

shiny

shiny-server

shinydashboard

shinyapps