 iris_spk %>%    spark_apply(     function(x) {       data.frame(A=c("a", "b", "c"), B=c(0, 0, 0))     },     group_by = "Species",     columns = list(A="character",                    B="numeric"),     packages = FALSE   )  