Question

我开发了一个应用程序来做一些分析。一切都在我的桌面上完美运行，但是，当我部署它时，应用程序停止工作。

该应用程序具有我使用的一些功能，并且我能够找到导致问题的那个，这就是

samplisa=function(a,b,iterat=50)
{
  colm=c(grep("IniciarH",colnames(data)),grep("ResponderH",colnames(data)))
na=dim(a)[1]
nb=dim(b)[1]
r2=0
aa=numeric()
bb=numeric()
for(i in 1:iterat)
{
   if(na>nb)
   {
      lina=sort(sample(1:na,nb))
      lma=lm(a[lina,colm]~b[,colm])
      r2b=summary(lma)[[8]]
      if(r2b>r2)
      {
         aa=a[lina,colm];bb=b[,colm];r2=r2b
      }
   }
   else
   {
      lina=sort(sample(1:nb,na))
      lma=lm(a[,colm]~b[lina,colm])    ####Apparently this is causing problem
      r2b=summary(lma)[[8]]
      if(r2b>r2)
      {
         aa=a[,colm];bb=b[lina,colm];r2=r2b
      }
   }
}
 ret=data.frame(aa,bb,stringsAsFactors=FALSE);colnames(ret)=c("GABARITO","JUIZ")
ret
}

这个函数接受两个data.frames a和b，以及一个数字向量iterat。它实际上只使用每个数据帧的特定列，这是一个数字数据[类POSIXct的对象，我用as.numeric（）转换为数字。

该应用程序返回变量的无效类型（列表）＆＃39; a [，colm]＆＃39; [注释与评论一致]

我尝试unlist（），但它只返回另一个错误。正如我所提到的，一切都在桌面上完全正常工作。

我将整个应用程序上传到了一个Dropbox文件夹，因此可以更轻松地获得一些帮助。 https://www.dropbox.com/sh/kka2p4zoinfdxrt/AAAc1cEl9z4F6ftEj5TA9Bo0a?dl=0

感谢您的帮助。：）

PS：正如所建议的那样，我还将应用程序提交给了我的github如下 https://github.com/RicardoFCJ/Calibragem

Shiny R：App部署后停止工作

0 个答案: