How to automatically apply post hoc test when p value<0.05

Question

I have a sample dataset as below:

Day<-c(1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2)
Group<-c("A","A","A","B","B