Same problem here, my code is
require(sparklyr)
sc <- spark_connect(master='local')
airquality2=as.data.frame(sapply(airquality,as.numeric))
airquality2$Month=as.character(airquality2$Month)
df <- sdf_copy_to(sc,na.omit(airquality2))
spark_apply(
df,
function(df) {
data.frame(month = df %>% select('Month'), mse = svm(Ozone ~ Solar_R+Wind+Temp+Day, df, cross = 3)$tot.MSE)
},
names = c("Month", "MSE"),
packages='e1071',
group_by = "Month")