R/restore_relative_paths.R

Defines functions restore_relative_paths

restore_relative_paths <- function(defs){
  
  if(nrow(defs$paths) > 0){
    for (i in 1:nrow(defs$paths)){
      defs[[defs$paths$field[i]]] <- defs$paths$rel[i]
    }
  }
  return(defs)
}

Try the CALANGO package in your browser

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

CALANGO documentation built on April 26, 2023, 5:13 p.m.