In R, how do I drop a column whose values are all FALSE?

Question

I have a dataframe, df. Some of its columns include logicals. I would like to drop the ones that are all FALSE.

library(tidyverse)
d