Fix path for THANKS

tidyverse · Dec 4, 2012 · 346e144 · 346e144
1 parent d94eddb
commit 346e144
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/NEWS b/NEWS
@@ -1,6 +1,8 @@
 stringr 0.6.2
 ================
 
+* fixed path in `str_wrap` example so works for more R installations.
+
 * remove dependency on plyr
 
 stringr 0.6.1

diff --git a/R/wrap.r b/R/wrap.r
@@ -13,7 +13,8 @@
 #' @return a character vector of reformatted strings.
 #' @export
 #' @examples
-#' thanks <- str_c(readLines(R.home("doc/THANKS")), collapse = "\n")
+#' thanks_path <- file.path(R.home("doc"), "THANKS")
+#' thanks <- str_c(readLines(thanks_path), collapse = "\n")
 #' thanks <- word(thanks, 1, 3, fixed("\n\n"))
 #' cat(str_wrap(thanks), "\n")
 #' cat(str_wrap(thanks, width = 40), "\n")

diff --git a/man/str_wrap.Rd b/man/str_wrap.Rd
@@ -26,7 +26,8 @@
   See \code{\link{strwrap}} for more details.
 }
 \examples{
-thanks <- str_c(readLines(R.home("doc/THANKS")), collapse = "\\n")
+thanks_path <- file.path(R.home("doc"), "THANKS")
+thanks <- str_c(readLines(thanks_path), collapse = "\\n")
 thanks <- word(thanks, 1, 3, fixed("\\n\\n"))
 cat(str_wrap(thanks), "\\n")
 cat(str_wrap(thanks, width = 40), "\\n")