R/innerNames.R

In MarceloRTonon/innermap: Use map with two elements of the same vector

#.innerNames <- function(.Output, .Names, .input,  ){
#    if(.Names == "after" & length(.Names) ==1){
#    names(.Output)<- names(.input)[c((1+distance):length(input))]
#  }
 # if(.Names == "before"& length(.Names) ==1){
 #   names(.Output) <- names(.input)[c(1:c(length(input)-distance))]
 # }
#
 # return(.Output)
#}