Add new whitespace-delimited example file and update examples for read_table() and melt_*()

R/melt_table.R

@@ -25,16 +25,13 @@
 #' @inheritParams read_table
 #' @export
 #' @examples
-#' # One corner from http://www.masseyratings.com/cf/compare.htm
-#' massey <- readr_example("massey-rating.txt")
-#' cat(read_file(massey))
-#' melt_table(massey)
+#' fwf <- readr_example("fwf-sample.txt")
+#' writeLines(read_lines(fwf))
+#' melt_table(fwf)
 #'
-#' # Sample of 1978 fuel economy data from
-#' # http://www.fueleconomy.gov/feg/epadata/78data.zip
-#' epa <- readr_example("epa78.txt")
-#' cat(read_file(epa))
-#' melt_table(epa)
+#' ws <- readr_example("whitespace-sample.txt")
+#' writeLines(read_lines(ws))
+#' melt_table2(ws)
 melt_table <- function(file, locale = default_locale(), na = "NA", skip = 0,
                        n_max = Inf, guess_max = min(n_max, 1000),
                        progress = show_progress(), comment = "",

R/read_table.R

@@ -17,16 +17,9 @@
 #' @inheritParams read_delim
 #' @export
 #' @examples
-#' # One corner from http://www.masseyratings.com/cf/compare.htm
-#' massey <- readr_example("massey-rating.txt")
-#' cat(read_file(massey))
-#' read_table(massey)
-#'
-#' # Sample of 1978 fuel economy data from
-#' # http://www.fueleconomy.gov/feg/epadata/78data.zip
-#' epa <- readr_example("epa78.txt")
-#' cat(read_file(epa))
-#' read_table(epa, col_names = FALSE)
+#' ws <- readr_example("whitespace-sample.txt")
+#' writeLines(read_lines(ws))
+#' read_table(ws)
 
 #' @rdname read_table
 #' @export

inst/extdata/whitespace-sample.txt

@@ -0,0 +1,4 @@
+first last state phone
+John Smith WA 418-Y11-4111
+Mary Hartford CA 319-Z19-4341
+Evan Nolan IL 219-532-c301