R语言ShinyApp报错：Non numeric matrix extent的解决方法

错误原因分析 #

报错行samples <- matrix(sample(1:n),ncol=K)触发错误的核心原因有两个：

1. 输入参数类型问题：Shiny控件返回的input$n、input$k可能不是整数类型（比如字符型），导致矩阵维度计算时出现非数值类型的参数。
2. 维度不匹配：matrix()要求元素总数等于nrow * ncol，这里sample(1:n)生成n个元素，如果n不能被K整除，自动计算的nrow会导致总数不匹配，触发错误。

具体修复方案 #

1. 强制转换输入参数为整数类型 #

在获取input值时，显式转换为整数，避免类型混乱：

n <- as.integer(input$n)
K <- as.integer(input$k)
sim <- as.integer(input$sim)
p <- as.integer(input$p)

2. 增加参数合法性检查 #

在执行循环前，先校验参数是否符合要求，非法输入时给出友好提示：

if (K <= 0 || n <= 0 || sim <=0 || p <=0 || n %% K != 0) {
  plot(0, 0, type="n", axes=FALSE, xlab="", ylab="")
  text(0, 0, "输入参数错误：请确保n、K、sim、p均为正整数，且n是K的整数倍")
  return()
}

修复后的完整server代码 #

server <- function(input, output) {
  output$distPlot <- renderPlot({
    # 强制转换输入为整数类型
    r <- as.integer(input$r)
    n <- as.integer(input$n)
    K <- as.integer(input$k)
    sim <- as.integer(input$sim)
    p <- as.integer(input$p)
    noi <- input$noi # 根据控件类型决定是否转换
    
    # 参数合法性校验
    if (K <= 0 || n <= 0 || sim <=0 || p <=0 || n %% K != 0) {
      plot(0, 0, type="n", axes=FALSE, xlab="", ylab="")
      text(0, 0, "输入参数错误：请确保n、K、sim、p均为正整数，且n是K的整数倍")
      return()
    }
    
    lsEigen0 <- replicate(1, matrix(rep(0, sim*p), 
                          nrow=sim, ncol = p), simplify=FALSE)
    
    lsmethod0 <- replicate(1, matrix(rep(0, sim*p), 
                          nrow=sim, ncol = p), simplify=FALSE)
    
    choose0 <- replicate(1, rep(0, p), simplify=FALSE)
    
    for (i in 1:sim) {
      samples <- matrix(sample(1:n), ncol=K)
      
      # 注释代码可后续按需恢复
      #df <- rmvnorm(n = n, mean = rep(0, p), sigma = diag(p)) 
      #data0 <- dataset(df,r,noi)
      
      #for (da in 1:1) {
       # lsEigen0[[da]][i,] <- svd(data0[[da]])$d
        
        #lsmethod0[[da]][i,] <- method(data0[[da]], samples)
        
        #min_err0 <- which.min(lsmethod0[[da]][i,])
        #choose0[[da]][min_err0] <- choose0[[da]][min_err0] +1
        
      #}
    }
    
    # 恢复绘图代码时确保参数合法
    #par(mfrow=c(1,2))
    
    #plot(1:p, colMeans(lsEigen0[[1]]), 
    #     xlab="kth Eigenvalue", ylab="Value", 
    #     main="Scree plot data set ", type = "b", pch = 19, 
    #     lty = 1, col = 1)
    
    #plot(1:p, colMeans(lsmethod0[[1]]), xlab="Rank r", 
    #     ylab="Value", main= "Error data set ", 
    #     type = "b", pch = 19, lty = 1, col = 1)
    
  })
}
# Run the application 
shinyApp(ui = ui, server = server)

额外注意事项 #

• 确保UI端的输入控件（比如numericInput、sliderInput）设置了合理的范围（比如min=1），减少非法输入的概率。
• 恢复注释掉的业务代码时，要确保dataset()、method()等自定义函数的输入参数类型正确，避免后续出现新的类型错误。

内容的提问来源于stack exchange，提问作者Emanuele