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)
}
franciscolobo/KOMODO2 documentation built on Dec. 30, 2021, 1:21 a.m.