Добавить в фрейм данных через цикл и функцию

Когда я запускаю код с сохранением как csv в конце, все работает правильно. Это означает, что я фильтрую свой набор данных по странам, делаю некоторые продолжения и сохраняю его как файл страны. Когда я пытаюсь привязать свои наборы данных, я ничего не получаю. Я пробую разные решения, которые нашел, но ничего не работает. Ясно не понимаю, почему я не могу rbind.

Код:

library(dplyr)
library(readxl)

setwd("Z:/Reporting_Private/Tableau")
dataupl <- read_excel("Analysis Map_Tableau - Ready.xlsm", sheet = "Data")

df = dataupl

#select right columns 
df = df[,1:6]
colnames(df)=c("Office", "Employee","Territiry","Sales","Leads","Act")

#change n/a to zero
df[is.na(df)]=0

countries = df %>% select(Office) %>% distinct()
countries = as.data.frame(countries)

engine <- function(input){

  df = df %>% filter(Office==input)

  SCALESALES = scale(df$Sales)
  SCALELEADS= scale(df$Leads)
  SCALEACT= scale(df$Act)

  df = df %>% mutate(SCALESALES = SCALESALES, SCALELEADS = SCALELEADS, SCALEACT = SCALEACT)

  df$SLegend = ave(df$Sales, df$SalesLegend, FUN = min)   
  df$SLegend = ifelse(df$SLegend>0, df$SLegend,0)
  df$LLegend = ave(df$Leads, df$LeadsLegend, FUN = min)   
  df$ALegend = ave(df$Act, df$ActLegend, FUN = min)   


  #write.csv(final, file = paste0(input,".csv"))
  dftotal = data.frame()
  dftotal = rbind(dftotal,df)
}

for (i in 1:nrow(countries)){

  input = countries[i,]

  engine(input)

}