How about the Random User Generator https://randomuser.me?
library(httr)
res <- GET("https://randomuser.me/api/?format=csv&inc=gender,name,nat&noinfo")
content(res)
#> Parsed with column specification:
#> cols(
#> gender = col_character(),
#> name.title = col_character(),
#> name.first = col_character(),
#> name.last = col_character(),
#> nat = col_character()
#> )
#> # A tibble: 1 x 5
#> gender name.title name.first name.last nat
#> <chr> <chr> <chr> <chr> <chr>
#> 1 male mr marco marin ES
#> Created on Tue Oct 10 16:06:59 2017 using the reprex package