R：反应式环境中的测试数据

我正在将一个已经存在的代码重写成一个闪亮的应用程序。该代码包括几个类似于以下示例的if语句：

dataPrep = eventReactive(input$execute, {
  inputdata = data()$dat
  analyse = reshape()$analyse
  x = reshape()$x
  y = reshape()$y
  z = reshape()$z

  if((analyse[3]==1 & dim(inputdata)[[2]]>(length(c(x,y,z))+1)) |
       (analyse[3]==0 & dim(inputdata)[[2]]>(length(c(x,y))+1)) )
  {
    if (sum(dimnames(inputdata)[[2]]=="int")==1)
    {
      if (analyse[3]==1)
      {
        inputdata.short <- inputdata[,c("num",x,y,z)]
      }
      if (analyse[3]==0)
      {
        inputdata.short <- inputdata[,c("num",x,y)]
      }
    }
    if (sum(dimnames(inputdata)[[2]]=="INT")==1)
    {
      if (analyse[3]==1)
      {
        inputdata.short <- inputdata[,c("NUM",x,y,z)]
      }
      if (analyse[3]==0)
      {
        inputdata.short <- inputdata[,c("NUM",x,y)]
      }
    }
  }else
  {
    inputdata.short <- inputdata
  }

  inputdata.short[is.na(inputdata.short)] <- 0
})

dataPrep=eventReactive（输入$execute{
inputdata=data（）$dat
分析=重塑（）$analysis
x=重塑（）$x
y=重塑（）$y
z=重塑（）$z
如果（（分析[3]==1&dim（输入数据）[[2]]>（长度（c（x，y，z））+1））|
（分析[3]==0&dim（输入数据）[[2]]>（长度（c（x，y））+1）））
{
if（总和（dimnames（inputdata）[[2]]==“int”）==1）
{
如果（分析[3]==1）
{
inputdata.short是否有人知道如何处理此问题？非常感谢您的帮助。感谢任何人知道如何处理此问题？将非常感谢您的帮助。谢谢