supprimer tout ce qui est après l'espace dans la chaîne dans une R

Je voudrais enlever tout ce qui est après un espace dans une chaîne de caractères.

Par exemple:

"ma chaîne est triste"

doit retourner

"mon"

J'ai été à essayer de comprendre comment faire cela en utilisant des sous/qsub mais ont échoué jusqu'à présent. Toute aide est très appréciée.

OriginalL'auteur user1214864 | 2012-02-16