check_empty_beautier_folder()
# TRUE
is_one_double(314)
is_one_double(0)
is_one_double(-314)
is_one_double(3.14)
# FALSE
is_one_double(NULL)
is_one_double(NA)
is_one_double(Inf)
is_one_double("nonsense")
is_one_double(is_one_double)
is_one_double(c())
is_one_double(c(1, 2))
check_empty_beautier_folder()
Run the code above in your browser using DataLab