Removed sample data

ikosmidis · May 21, 2018 · 9fce446 · 9fce446
1 parent 5734550
commit 9fce446
Show file tree

Hide file tree

Showing 7 changed files with 16 additions and 53 deletions.
diff --git a/R/coerce.R b/R/coerce.R
@@ -23,13 +23,13 @@
 #' @examples
 #' \dontrun{
 #'
-#' data("cran_sample", package = "cranly")
+#' #' cran_db <- clean_CRAN_db()
 #' ## Package directives network
-#' package_network <- build_network(object = cran_sample, perspective = "package")
+#' package_network <- build_network(object = cran_db, perspective = "package")
 #' igraph::as.igraph(package_network)
 #'
 #' ## Author collaboration network
-#' author_network <- build_network(object = cran_sample, perspective = "author")
+#' author_network <- build_network(object = cran_db, perspective = "author")
 #' igraph::as.igraph(author_network)
 #'
 #' }

diff --git a/R/cranly-package.R b/R/cranly-package.R
@@ -51,9 +51,9 @@ NULL
 #'
 #' @examples
 #' \dontrun{
-#' data("cran_sample", package = "cranly")
+#' cran_db <- clean_CRAN_db()
 #' ## Using a package directives network
-#' package_network <- build_network(cran_sample)
+#' package_network <- build_network(cran_db)
 #' ## Find all packages containing glm in their name
 #' package_with(package_network, name = "glm")
 #' ## Find all authors of packages containing brglm in their name
@@ -72,7 +72,7 @@ NULL
 #' linking_to(package_network, package = "RcppArmadillo", exact = TRUE)
 #'
 #' ## Using an author collaboration network
-#' author_network <- build_network(cran_sample, perspective = "author")
+#' author_network <- build_network(cran_db, perspective = "author")
 #' ## Find all packages containing glm in their name
 #' package_with(author_network, name = "glm")
 #' ## Find all authors of packages containing brglm in their name

diff --git a/R/data.R b/R/data.R
diff --git a/R/plot_network.R b/R/plot_network.R
@@ -17,15 +17,15 @@
 #'
 #' @examples
 #' \dontrun{
-#' data("cran_sample", package = "cranly")
-#' package_network <- build_network(cran_sample)
+#' cran_db <- clean_CRAN_db()
+#' package_network <- build_network(cran_db)
 #' ## The package directives network of all users with Ioannis in
-#' ## their name from the CRAN database subset cran_sample
+#' ## their name from the CRAN database subset cran_db
 #' plot(package_network, author = "Ioannis")
 #' ## The package directives network of "Achim Zeileis"
 #' plot(package_network, author = "Achim Zeileis")
 #'
-#' author_network <- build_network(cran_sample, perspective = "author")
+#' author_network <- build_network(cran_db, perspective = "author")
 #' plot(author_network, author = "Ioannis", title = TRUE)
 #' }
 #' @export

diff --git a/R/plot_summary.R b/R/plot_summary.R
@@ -11,16 +11,16 @@
 #' @examples
 #'
 #' \dontrun{
-#' data("cran_sample", package = "cranly")
+#' cran_db <- clean_CRAN_db()
 #' ## package network
-#' package_network <- build_network(cran_sample)
+#' package_network <- build_network(cran_db)
 #' package_summaries <- summary(package_network)
 #' plot(package_summaries, according_to = "n_imported_by", top = 30)
 #' plot(package_summaries, according_to = "n_depended_by", top = 30)
 #' plot(package_summaries, according_to = "page_rank", top = 30)
 #'
 #' ## author network
-#' author_network <- build_network(cran_sample, perspective = "author")
+#' author_network <- build_network(cran_db, perspective = "author")
 #' author_summaries <- summary(author_network)
 #' plot(author_summaries, according_to = "n_collaborators", top = 30)
 #' plot(author_summaries, according_to = "n_packages", top = 30)

diff --git a/data/cran_sample.rda b/data/cran_sample.rda
diff --git a/tests/testthat/test-extractors.R b/tests/testthat/test-extractors.R
@@ -1,8 +1,8 @@
 context("Test extractor functions")
 
-data("cran_sample", package = "cranly")
-package_network <- build_network(object = cran_sample)
-author_network <- build_network(object = cran_sample, perspective = "author")
+cran_db <- clean_CRAN_db()
+package_network <- build_network(object = cran_db)
+author_network <- build_network(object = cran_db, perspective = "author")
 
 test_that("author_of returnes same value when applied to a package network and when applied to an author network",
           expect_equal(sort(author_of(package_network, "MASS")),