Skip to content

Commit

Permalink
Redefine Hidden colony [minor]
Browse files Browse the repository at this point in the history
  • Loading branch information
gmyenni committed Mar 1, 2024
1 parent a7761b9 commit 60ae1fa
Showing 13 changed files with 32,085 additions and 32,084 deletions.
7,642 changes: 3,821 additions & 3,821 deletions Counts/maxcounts.csv

Large diffs are not rendered by default.

8 changes: 4 additions & 4 deletions DataCleaningScripts/get_counts.R
Original file line number Diff line number Diff line change
@@ -3,15 +3,15 @@ species <- read.csv("SiteandMethods/species_list.csv")
counts <- read.csv("Counts/maxcounts.csv")
under40 <- read.csv("Counts/maxcounts_under40.csv")




colonies$aka[which(colonies$colony=="hidden")] = "Hidden North, L-28, Hidden, L-28 Hidden, 58, 163"
counts$group_id[which(counts$colony=="58")] = 57
counts$colony[which(counts$colony=="58")] = "hidden"

colonies <- colonies %>% dplyr::arrange(colony)
write.table(colonies, "SiteandMethods/colonies.csv", row.names = FALSE, col.names = TRUE,
na = "", sep = ",", quote = c(7,8))

counts <- counts %>% dplyr::arrange()
counts <- counts %>% dplyr::arrange(colony,year)
write.table(counts, "Counts/maxcounts.csv", row.names = FALSE, na = "", sep = ",", quote = 9)

under40 <- under40 %>% dplyr::arrange()
11 changes: 8 additions & 3 deletions DataCleaningScripts/old_nest_checks.R
Original file line number Diff line number Diff line change
@@ -168,10 +168,15 @@ nests <- dplyr::bind_rows(old_data,nests) %>%
dplyr::filter_at(.vars = dplyr::vars(eggs, chicks, stage, notes),
.vars_predicate = dplyr::any_vars(!is.na(.)))

write.csv(nests, "Nesting/nest_checks.csv", row.names = FALSE, na = "", quote = 9)
nests <- nests %>%
dplyr::mutate(dplyr::across(c(colony,nest,species,stage,notes),as.character),
dplyr::across(c(year,eggs,chicks),as.integer),
date = lubridate::ymd(date))
write.table(nests, "Nesting/nest_checks.csv", row.names = FALSE, na = "", sep = ",", quote = 9)

species <- species %>% dplyr::arrange(species)
write.csv(species, "SiteandMethods/species_list.csv", row.names = FALSE, na = "", quote = 5:25)
write.table(species, "SiteandMethods/species_list.csv", row.names = FALSE, na = "", sep = ",", quote = 5:25)

colonies <- colonies %>% dplyr::arrange(colony)
write.csv(colonies, "SiteandMethods/colonies.csv", row.names = FALSE, na = "", quote = FALSE)
write.table(colonies, "SiteandMethods/colonies.csv", row.names = FALSE, col.names = TRUE,
na = "", sep = ",", quote = c(7,8))
Loading

0 comments on commit 60ae1fa

Please sign in to comment.