Add example to gtfs2sldf.

ropensci · Nov 28, 2015 · 5a90629 · 5a90629
1 parent d4b42e7
commit 5a90629
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/R/gtfs.R b/R/gtfs.R
@@ -6,6 +6,12 @@
 #'
 #' @param gtfszip String with the file path of the GTFS feed zip file
 #' @export
+#' @examples \dontrun{
+#' downloader::download("http://www.yrt.ca/google/google_transit.zip",
+#'                      paste0(tempdir(),"/gtfsfeed.zip"))
+#' yrtgtfs <- gtfs2sldf(paste0(tempdir(),"/gtfsfeed.zip"))
+#' plot(yrtgtfs,col=paste0("#",yrtgtfs$route_color))
+#' }
 gtfs2sldf <- function(gtfszip = "") {
 
   if (gtfszip == "") {

diff --git a/man/gtfs2sldf.Rd b/man/gtfs2sldf.Rd