Применение функции по подмножеству (.SD) в data.table и сохранение отдельных файлов

Question

Я хочу применить длинный код путем установки большого файла.

У меня есть большой набор данных, и я хочу применить длинный код (деформированный в моей функции) для отдельного запуска кодаподмножество (например, «Состояние»), а затем сохраните результаты по состоянию

dat <- as.data.table(data)

my_function <- function(dat){ 
dat$delta<-dat$high-dat$low
dat$deltaby20<-I(dat$delta/20)
varnames = paste0('INC',seq(1,20,1))
  for (i in 1:20){
dat$tempvar = dat$low+ dat$deltaby20*i 
names(dat)[names(dat) == 'tempvar'] = varnames[i]}

dat$seqvar = seq(1:nrow(dat)) # set a sequence of observations
dat<- dat%>% gather(INC, INC_Value, INC1:INC20)

pred.dat<-predict(mod1$gam, type = "response", dat, se=T)
dat<-cbind(dat, pred.dat)
  dat$pi_delta<-dat$fit*dat$deltaby20

dat<-dat%>%
  group_by(seqvar,State) %>%
  summarise(Sum_pi_delta=sum(pi_delta,na.rm=T),
          Lat=mean(Lat,na.rm=T),
          Lon=mean(Lon,na.rm=T))


dat$deaths<dat$Sum_pi_delta*5
  return(dat)
  saveRDS(dat), paste0(dat, ".Rds"))
 }


  newdat <- dat[, my_function(.SD), by = State] 

Мои ожидаемые результаты будут разными .rds файлами для каждого состояния со всеми переменными, созданными в функции