[R] How to strip everything after second whitespace?

[johannes rara]

How to split everything after second whitespace char using regular
expression? I want to remove A, B, C and D from these names:

nam <- c("Smith John A", "Smith David B C", "Smith Ryan C D")

Thanks,
Johannes