fixed bug #94

Author: tonyfischetti

R/assertions.R

@@ -119,6 +119,12 @@ assert <- function(data, predicate, ..., success_fun=success_continue,
                       this.vector <- sub.frame[[column]]
                       return(apply.predicate.to.vector(this.vector,
                                                        predicate))})
+  # special case for a single row data.frame
+  if(length(log.mat)==1 && !methods::is(log.mat, "matrix")){
+    tmp <- names(log.mat)
+    log.mat <- matrix(dat=log.mat)
+    colnames(log.mat) <- tmp
+  }
 
   # if all checks pass in current assertion
   if(all(log.mat))
@@ -401,6 +407,13 @@ insist <- function(data, predicate_generator, ...,
                       return(apply.predicate.to.vector(this.vector,
                                                        predicate))})
 
+  # special case for a single row data.frame
+  if(length(log.mat)==1 && !methods::is(log.mat, "matrix")){
+    tmp <- names(log.mat)
+    log.mat <- matrix(dat=log.mat)
+    colnames(log.mat) <- tmp
+  }
+
   # if all checks pass in current assertion
   if(all(log.mat))
     return(success_fun(data, "insist", name.of.predicate.generator, colnames(sub.frame), NA, description))

R/utils.R

@@ -87,16 +87,16 @@ has_all_names <- function(...){
 #'
 #' This function checks parent frame environment for a specific set of names; if
 #' more columns are present than those specified, an error is raised.
-#' 
+#'
 #' This is meant to be used with `assertr`'s `verify` function to check
 #' for the existence of specific column names in a `data.frame` that is
 #' piped to `verify`. It can also work on a non-`data.frame` list.
-#' 
+#'
 #' @inheritParams has_all_names
 #' @family Name verification
 #' @return TRUE is all names exist, FALSE if not
 #' @examples
-#' 
+#'
 #' # The last two columns names are switched in order, but all column names are
 #' # present, so it passes.
 #' verify(
@@ -106,7 +106,7 @@ has_all_names <- function(...){
 #'     "carb", "gear"
 #'   ))
 #' )
-#' 
+#'
 #' # More than one set of character strings can be provided.
 #' verify(
 #'   mtcars,
@@ -115,7 +115,7 @@ has_all_names <- function(...){
 #'     c("carb", "gear")
 #'   )
 #' )
-#' 
+#'
 #' \dontrun{
 #' # The some columns are missing, so it fails.
 #' verify(mtcars, has_only_names("mpg"))