In below gt nest table ,how can i change the text color and size ?
I added color and size to gt , it’s can’t work. Anyone can help ? Thanks!

 library(gt)
    library(tidyverse)
    
    diamonds %>% head(100)%>% group_by(color) %>% 
      summarise(x=list(x),y=list(y)) %>% gt(color=ifelse(x>4,"red","blue"),
                                            size=ifelse(x>4,6,7))