make_random_string <- function(n)
{
paste0(sample(letters, n, replace = TRUE), collapse = "")
}
long <- c(make_random_string(10000), make_random_string(10001))
x <- c("x", "y_y0.Y", ".", "x y", "...", "..1", long)
is_valid_variable_name(x)
is_valid_variable_name(x, allow_reserved = FALSE)
#These examples should fail.
dont_stop(assert_all_are_valid_variable_names(c("...", "..1"), allow_reserved = FALSE))
Run the code above in your browser using DataLab