data-raw/lcCollateC.R

lcCollateC <- function(x)
{
  lc_collocate0 <- Sys.getlocale("LC_COLLATE")
  Sys.setlocale("LC_COLLATE","C")
  x
  invisible(Sys.setlocale("LC_COLLATE",lc_collocate0))
}
josempozo/zoolog documentation built on Sept. 12, 2022, 12:10 p.m.