Correct embarrassing length typo

peterhurford · Feb 12, 2016 · 585af6d · 585af6d
1 parent f4db12a
commit 585af6d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/README.md b/README.md
@@ -37,7 +37,7 @@ random_string <- ensure(
     length > 0),
   post = list(result %is% simple_string, nchar(result) == length),
   function(length, alphabet) {
-    paste0(sample(alphabet, 10, replace = TRUE), collapse = "")
+    paste0(sample(alphabet, length, replace = TRUE), collapse = "")
   })
 ```
 

diff --git a/tests/testthat/test-ensure.R b/tests/testthat/test-ensure.R
@@ -11,7 +11,7 @@ random_string <- ensure(
     length > 0),
   post = list(result %is% simple_string, nchar(result) == length),
   function(length, alphabet) {
-    paste0(sample(alphabet, 10, replace = TRUE), collapse = "")
+    paste0(sample(alphabet, length, replace = TRUE), collapse = "")
   })
 
 describe("classes", {