Error when exporting R table to excel using group_by - r

Question

I am writing a function that will create a table from a dataframe using the kable() function, then export it to excel using the writexl library.
However I get an error with summarise() and group_by() function:
show_data <- function(df,col1,col2){
myTable <- df %>%
filter(!is.na(col1),!is.na(col2)) %>%
group_by(col2, col1) %>%
summarise(subjects = n()) %>%
mutate(percent = round(subjects / sum(subjects, na.rm = TRUE)* 100, 1)) %>% select(-subjects) %>%
spread(col2,percent)
names(myTable) <- c(col1,"col",col2)
MyTable %>% a
rrange(desc(col2)) %>%
kable(caption = paste(col1,"_",col2))
}
Error messages:
Error: Can't extract columns that don't exist.
x Column foo doesn't exist.
and
***Error: Must group by variables found in .data.
Column columnTwo is not found.
Column columnOne is not found.***
Also, I would like to export a resulting table (via kable()) from R to Excel without having to repeat the same lines of code. Is this possible?
show_data <- function(df,col1,col2){
myTable <- df %>%
filter(!is.na(col1),!is.na(col2)) %>%
group_by(col2, col1) %>%
summarise(subjects = n()) %>%
mutate(percent = round(subjects / sum(subjects, na.rm = TRUE)* 100, 1)) %>% select(-subjects) %>%
spread(col2,percent)
names(myTable) <- c(col1,"col",col2)
MyTable %>% a
rrange(desc(col2)) %>%
kable(caption = paste(col1,"_",col2))
myTable <- df %>%
filter(!is.na(col1),!is.na(col2)) %>%
group_by(col2, col1) %>%
summarise(subjects = n()) %>%
mutate(percent = round(subjects / sum(subjects, na.rm = TRUE)* 100, 1)) %>% select(-subjects) %>%
spread(col2,percent)
names(myTable) <- c(col1,"col",col2)
MyTable %>%
arrange(desc(col2)) %>%
write_xlsx(results.xlsx")
}
show_data(my_data,"column_one","column_two")