Extraer R al cuadrado de LM en R

pull(glance(data), r.squared)
Successful Salmon