R/insert_before_file_ext.R

In rdwplus: Inverse Distance Weighted Percent Land Use for Streams

Defines functions insert_before_file_ext

insert_before_file_ext <- function(x, i){
  gsub("(.[A-Za-z]{1,10}$)", paste0(i, "\\1"), x)
}

Try the rdwplus package in your browser