R: How to select 100 random rows based on column text?

I'm using the spam dataset in R where one of the columns ("type") divides e-mails into "spam" and "nonspam"

I want to create an object with 100 randomly selected rows that are classed as "spam".