Add default value to param npeople in R call