R/cleannames.R

Defines functions cleannames

cleannames <- function(objnames, no_dots = FALSE) {
  objnames[objnames == ""] <- NA_character_
  is_missing <- is.na(objnames)
  objnames[is_missing] <- as.character(seq_len(length(objnames)))[is_missing]
  if (isTRUE(no_dots)) objnames <- gsub(".", "_", objnames, fixed = TRUE)
  make.unique(objnames)
}

Try the jsonlite package in your browser

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

jsonlite documentation built on April 4, 2025, 5:24 a.m.