How to print only the P value from an LMER table?

Hey all,

I am trying to print only the P values from an LMER table below:

df_lmer <- lmer(y~x1*groupcategory + (1+x1|id),data=df)
df_lmer_sum <- summary(df_lmer)
pvalue <- df_lmer[3]
pvalue <- pvalue[[1]]["groupcategory","Pr(>F)"]

However, there appears to be an error and I can't quite understand what that is?

See pp 99-100 of the lmer4 documentation for the reason why you need to look outside the package to do this. (Notice that summary(model) doesn't even return one.)