Merge pull request #20 from rolkra/use-data-starwars

Use data starwars

NAMESPACE

@@ -62,6 +62,7 @@ export(use_data_iris)
 export(use_data_mpg)
 export(use_data_mtcars)
 export(use_data_penguins)
+export(use_data_starwars)
 export(use_data_titanic)
 export(weight_target)
 import(dplyr)

R/use-data.R

@@ -51,7 +51,7 @@ use_data_mpg <- function() {
 #' Use the diamonds data set
 #'
 #' This data set comes with the ggplot2 package.
-#' It containing the prices and other attributes of almost 54,000 diamonds.
+#' It contains the prices and other attributes of almost 54,000 diamonds.
 #' @return Dataset
 #' @examples
 #' use_data_diamonds()
@@ -61,6 +61,19 @@ use_data_diamonds <- function() {
   return(ggplot2::diamonds)
 }
 
+#' Use the starwars data set
+#'
+#' This data set comes with the dplyr package.
+#' It contains data of 87 star war characters
+#' #' @return Dataset
+#' @examples
+#' use_data_starwars()
+#' @export
+
+use_data_starwars <- function() {
+  return(dplyr::starwars)
+}
+
 #' Use the penguins data set
 #'
 #' This data set comes with the palmerpenguins package.

tests/testthat/test-use-data.R

@@ -4,6 +4,7 @@ test_that("use_data returns a data frame.", {
   expect_s3_class(use_data_mtcars(), "data.frame")
   expect_s3_class(use_data_mpg(), "data.frame")
   expect_s3_class(use_data_diamonds(), "data.frame")
+  expect_s3_class(use_data_starwars(), "data.frame")
   expect_s3_class(use_data_penguins(), "data.frame")
   expect_s3_class(use_data_titanic(), "data.frame")
 })
@@ -14,6 +15,7 @@ test_that("use_data returns data frames with >0 rows", {
   expect_gt(nrow(use_data_mtcars()), 0)
   expect_gt(nrow(use_data_mpg()), 0)
   expect_gt(nrow(use_data_diamonds()), 0)
+  expect_gt(nrow(use_data_starwars()), 0)
   expect_gt(nrow(use_data_penguins()), 0)
   expect_gt(nrow(use_data_titanic()), 0)
 })