dealing with NaN in R with Tidyverse in summaries

Question

I\'d like help in how to deal with NaN using summarise from the "tidyverse" package in R

#library(\'tydiverse\')
smple<-tibble(
          g=c(\'p