R/safesample.R

safesample <- function(x) if(length(x) == 1) x else sample(x, 1)

Try the TaoTeProgramming package in your browser

Any scripts or data that you put into this service are public.

TaoTeProgramming documentation built on May 1, 2019, 6:47 p.m.