Adding year to penguins (#62)

* rm dontrun * add year column to penguins * redocument with year * update articles
allisonhorst · Jul 15, 2020 · 156daa4 · 156daa4
1 parent 1fc58d6
commit 156daa4
Show file tree

Hide file tree

Showing 9 changed files with 360 additions and 363 deletions.
diff --git a/R/penguins.R b/R/penguins.R
@@ -4,7 +4,7 @@
 #' size (flipper length, body mass, bill dimensions), and sex.
 #' This is a subset of \code{\link{penguins_raw}}.
 #'
-#' @format A tibble with 344 rows and 7 variables:
+#' @format A tibble with 344 rows and 8 variables:
 #' \describe{
 #'   \item{species}{a factor denoting penguin species (Adélie, Chinstrap and Gentoo)}
 #'   \item{island}{a factor denoting island in Palmer Archipelago, Antarctica (Biscoe, Dream or Torgersen)}
@@ -13,6 +13,7 @@
 #'   \item{flipper_length_mm}{an integer denoting flipper length (millimeters)}
 #'   \item{body_mass_g}{an integer denoting body mass (grams)}
 #'   \item{sex}{a factor denoting penguin sex (female, male)}
+#'   \item{year}{an integer denoting the study year (2007, 2008, or 2009)}
 #' }
 #' @source {Adélie penguins: Palmer Station Antarctica LTER and K. Gorman. 2020. Structural size measurements and isotopic signatures of foraging among adult male and female Adélie penguins (Pygoscelis adeliae) nesting along the Palmer Archipelago near Palmer Station, 2007-2009 ver 5. Environmental Data Initiative} \url{https://doi.org/10.6073/pasta/98b16d7d563f265cb52372c8ca99e60f}
 #' @source {Gentoo penguins: Palmer Station Antarctica LTER and K. Gorman. 2020. Structural size measurements and isotopic signatures of foraging among adult male and female Gentoo penguin (Pygoscelis papua) nesting along the Palmer Archipelago near Palmer Station, 2007-2009 ver 5. Environmental Data Initiative} \url{https://doi.org/10.6073/pasta/7fca67fb28d56ee2ffa3d9370ebda689}

diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/penguins.R b/data-raw/penguins.R
@@ -1,6 +1,7 @@
 library(tidyverse)
 library(here)
 library(janitor)
+library(lubridate)
 
 # Download raw data -------------------------------------------------------
 
@@ -29,6 +30,7 @@ penguins_df <- penguins_raw_df %>%
   clean_names() %>%
   mutate(species_short = word(species, 1)) %>%
   mutate(sex = tolower(sex)) %>%
+  mutate(year = as.integer(lubridate::year(date_egg))) %>%
   mutate(across(where(is.character), as.factor)) %>%
   mutate(flipper_length_mm = as.integer(flipper_length_mm)) %>%
   mutate(body_mass_g = as.integer(body_mass_g)) %>%
@@ -40,7 +42,8 @@ penguins_df <- penguins_raw_df %>%
          bill_depth_mm,
          flipper_length_mm,
          body_mass_g,
-         sex) %>%
+         sex,
+         year) %>%
   rename(species = species_short) %>%
   as.data.frame()