I have this small function and want to apply it to a dataset using purrr::map(). It does what I expect