diff options
Diffstat (limited to 'R/unmarkedFrame.R')
| -rw-r--r-- | R/unmarkedFrame.R | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/R/unmarkedFrame.R b/R/unmarkedFrame.R index b6a9273..3b8895f 100644 --- a/R/unmarkedFrame.R +++ b/R/unmarkedFrame.R @@ -161,7 +161,10 @@ setClass("unmarkedFrameDSO", #Convert covs provided as list of matrices/dfs to data frame covsToDF <- function(covs, name, obsNum, numSites){ if(!inherits(covs, "list")) return(covs) - + + if(is.null(names(covs)) | any(is.na(names(covs))) | any(names(covs)=="")){ + stop("All elements of list provided to ", name, " argument must be named", call.=FALSE) + } lapply(covs, function(x){ if(!inherits(x, c("matrix", "data.frame"))) stop(paste("At least one element of", name, "is not a matrix or data frame.")) |