From a231d73cb12cc1bd67bfa0cd02d12399e2ee1933 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=BAlio=20Lucchese?= Date: Tue, 17 Feb 2015 11:22:03 -0200 Subject: [PATCH 1/3] Update val_has_length.Rd --- man/val_has_length.Rd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/man/val_has_length.Rd b/man/val_has_length.Rd index 9c0f414..bf0d132 100644 --- a/man/val_has_length.Rd +++ b/man/val_has_length.Rd @@ -13,7 +13,7 @@ val_has_length(len) \code{TRUE} or \code{FALSE} } \description{ -Test the the \code{\link{length}} of \code{e$val} is that given by the +Test the \code{\link{length}} of \code{e$val} is that given by the first argument. } \examples{ From da73d61cb45ec71b8d49022bbffac20e67d3713b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=BAlio=20Lucchese?= Date: Tue, 17 Feb 2015 11:22:46 -0200 Subject: [PATCH 2/3] Update answerTests.R --- R/answerTests.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/answerTests.R b/R/answerTests.R index 7fff734..583dbc9 100644 --- a/R/answerTests.R +++ b/R/answerTests.R @@ -351,7 +351,7 @@ runTest.expr_identical <- function(keyphrase, e){ return(results$passed) } -# Test the the length of e$val is that given in the keyphrase +# Test the length of e$val is that given in the keyphrase # keyphrase: "val_length=" runTest.val_length <- function(keyphrase, e){ try(n <- as.integer(rightside(keyphrase)), silent=TRUE) From af92dbfdd6028171046f63c04d5dbfcb5cff251f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?J=C3=BAlio=20Lucchese?= Date: Tue, 17 Feb 2015 11:23:16 -0200 Subject: [PATCH 3/3] Update answerTests2.R --- R/answerTests2.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/answerTests2.R b/R/answerTests2.R index 75b01a5..504a49d 100644 --- a/R/answerTests2.R +++ b/R/answerTests2.R @@ -427,7 +427,7 @@ expr_creates_var <- function(correctName=NULL){ #' Test that the value of the expression has a particular \code{length}. #' -#' Test the the \code{\link{length}} of \code{e$val} is that given by the +#' Test the \code{\link{length}} of \code{e$val} is that given by the #' first argument. #' @param len expected length of the variable created by a user #' @return \code{TRUE} or \code{FALSE}