R:部署后应用程序停止工作

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

这个应用程序有一些我使用过的功能，我能够找到引起问题的那个，就是这个

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.Frame a和b，以及一个数值向量迭代器。它实际上只使用每个数据帧的一个特定列，这是一个数值数据[POSIXct类的对象，我用as.numeric（）将其转换为数值]

应用程序返回 变量“a[，colm]”的类型（列表）无效[请注意带有注释的行]

我试图取消列表（），但它只会返回另一个错误。正如我提到的，在我的桌面上，一切都正常工作

我将整个应用程序上传到dropbox文件夹中，以便更容易获得帮助。

谢谢你的帮助。：）

PS：根据建议，我还将应用程序提交到我的github，如下所示

---

只是瞎开枪而已。您是否尝试过

b[，colm，drop=FALSE]

？FWIW，将应用程序上传到GitHub更容易，因为从那里部署它们很简单。我猜你的意思是

a[，colm，drop=FALSE]

，因为我从那里得到了错误消息。不管怎么说，只是做了，但没有起作用。