data-raw/schreckagenda.R

In ComputationalMovementAnalysis/ComputationalMovementAnalysisData: Provides Data to use in the Course ComputationalMovementAnalysis

## code to prepare `schreckagenda` dataset goes here ##

library(tidyverse)

schreckagenda <- read_csv("data-raw/schreckagenda_2014-2017.csv") %>%
  select(-c(E, N, laufzeit,-vergraemungsabschuss)) %>%
  janitor::clean_names() %>%
  rename(lat = e_dec, lon = n_dec, lautstaerke_2 = lautstarke_2)



schreck_locations <- schreckagenda %>%
  select(-contains("_")) %>%
  select(-vergraemungsabschuss)

schreck_agenda <- map_dfr(c(1,2), function(x){
    colsel <- paste0("_",x)
    schreckagenda %>%
      select(contains("ID")|contains(colsel))  %>%
      rename_with(~str_remove(.x, colsel)) %>%
      mutate(phase = 2) %>%
      filter(!is.na(datum_on))
  }) %>%
  arrange(id, phase)


schreck_agenda <- schreck_agenda %>%
  separate(ausr_lautsprecher, c("ausrichtung_min","ausrichtung_max"), "/",convert = TRUE)


usethis::use_data(schreck_locations, overwrite = TRUE)
usethis::use_data(schreck_agenda, overwrite = TRUE)