R/parameter2wiki.R

parameter2wiki <- function(x,lowercase='is.fixed',...){
	x <- as.character(x)
	x <- titleCase(x)
	for(f in lowercase){
		fun <- match.fun(f)
		x[fun(x)] <- tolower(x[fun(x)])
	}
	x <- sub('([0-9.]+)','_\\1 ',x,...)
	x
}

Try the metrumrg package in your browser

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

metrumrg documentation built on May 2, 2019, 5:55 p.m.