light_mp.R

# Transforms species data on light by date at McCormick Place in Chicago

# Source: 
# Winger BM, Weeks BC, Farnsworth A, Jones AW, Hennen M, Willard DE (2019) 
# Data from: Nocturnal flight-calling behavior predicts vulnerability to 
# artificial light in migratory birds. Dryad Digital Repository. 
# https://doi.org/10.5061/dryad.8rr0498

# Authors: Sara Altman, Bill Behrman
# Version: 2023-08-08

# Packages
library(tidyverse)

# Parameters
  # Input file
file_raw <- here::here("data-raw/light_mp.csv")
  # Output file
file_out <- here::here("data/light_mp.rds")

#===============================================================================

file_raw |> 
  read_csv(
    col_types = cols(Date = col_date(), Light_Score = col_double())
  ) |> 
  rename_with(str_to_lower) |> 
  drop_na() |> 
  group_by(date) |> 
  summarize(light_score = round(mean(light_score))) |>
  write_rds(file_out)