it <- iteror(1:10)
# Returns 5
nth(it, 5, NA)
it2 <- iteror(letters)
# Returns 'e'
nth(it2, 5, NA)
it3 <- iteror(letters)
# Returns default value of NA
nth(it3, 42, NA)
it4 <- iteror(letters)
# Returns default value of "foo"
nth(it4, 42, or="foo")
Run the code above in your browser using DataLab