nSvd fails in compilation processing

[paciorek]

go = nFunction(
        fun = function(x = 'numericMatrix') {
            y <- svd(x, vectors='full')$d
          return(y)
        },
        returnType = 'numericVector'
  )
cgo=nCompile(go)
cgo(diag(2))

An error occurred in compiler stage labelAbstractTypes (for method or nFunction nFun_8_NFID_12):
missing value where TRUE/FALSE needed

Error in if (argType$nDim != 0 || argType$type != "integer") { : 
  missing value where TRUE/FALSE needed

I will investigate later.