Summary

This branch introduces a function for anonymizing data, as per #156. The use case of this function is to make POC artifacts shareable, as they are often created using real Workplace Analytics data which is typically highly confidential.

Changes

The changes made in this PR are:

1. Added anonymize() / anonymise().
2. Added jitter_metrics()

Examples

Anonymize the Organization attribute:

sq_data %>%
  mutate(Organization = anonymise(Organization)) %>%
  email_sum(hrvar = "Organization")

Add jitter to a metric:

jittered <- jitter_metrics(sq_data, cols = "Collaboration_hours")
head(
  data.frame(
    original = sq_data$Collaboration_hours,
    jittered = jittered$Collaboration_hours
  )
)

  original jittered
1 18.74210 18.73427
2 15.02403 15.00658
3 14.27897 14.29141
4 12.69034 12.68973
5 10.99079 10.97063
6 18.25287 18.22849

Results:

Checks

• All R CMD checks pass
• roxygen2::roxygenise() has been run prior to merging to ensure that .Rd and NAMESPACE files are up to date.
• NEWS.md has been updated.

Notes

This fixes #156.