apply a custom function on grouped dataframe n rows at a time

Question

A user defined function

WriteImage <- function(assay, country, strain) {
    magick::image_write(
      format = "jpeg",
      path = here::here(past