I am trying to remove two columns from the below table however when knitted as a pdf from markdown I get the below error. I am unsure if this just isn’t possible or if there is a work around.

ERROR:

Error in remove_column(., 4:5) :

Removing columns was not implemented for latex kables yet

Calls: … kable_classic -> kable_light -> kable_styling -> remove_column

Execution halted

```
OverCortTab <- bind_rows(AlexOverCortTab$table_body,OptOverCortTab$table_body)%>%
mutate(Predictor=str_replace(Predictor,"TAS_Tot","Alexithymia"),
Predictor=str_replace(Predictor,"OPT_Tot","Optimism"))%>%
mutate(Fit=str_replace(Fit,"95%","95\\%"),
Fit=str_replace(Fit,"R2","R$2$"),
Fit=lead(Fit,n=2))%>%
filter(Predictor !=""|Fit !="")%>%
kable(caption = "Table 1: Hair Cortisol and Personality",
booktabs=TRUE,
col.names = c("Predictor","$\beta$","$\beta$ 95\% CI","$\beta$","$\beta$ 95\% CI","sr2","sr2 95\% CI","r","Fit"),
escape=FALSE) %>%
remove_column(4:5)%>%
kable_classic(font_size=12)%>%
footnote(general=c("A Significant $\beta$-weight indicates the semi-partial correlation is also significant.","$\beta$ represents unstandardised regression weights.","sr2 represents the semi-partial correlation squared.","Square brackets are used to enclose the lower and upper limits of the confidence interval.","* indicates p < .05", "** indicates p < .01"),escape=FALSE) %>%
group_rows("Alexithymia",1,2,hline_before=TRUE,hline_after=TRUE,underline=TRUE)%>%
group_rows("Optimism",3,4,hline_before=TRUE,hline_after=TRUE,underline=TRUE) ```
```