Fix example so R CMD check doesn't hang