Run AWK query from R (change specific rows)

query_awk.R

query_awk <- function(vpar, pdir, filename, uid){
  chl <- paste0("cat ", pdir, "/", filename)
  for(i in 1:nrow(vpar)){
    chr <- paste0("\"", paste(vpar[i,], collapse = ", "), "\"")
    awk <- paste0(" | awk 'NR==", uid[i], "{sub('/.*/',", chr, ")}1'")
    chl <- paste0(chl, awk)
  }
  chl <- paste0(chl, " > ", pdir, "/tmp.csv")
  mvit <- paste0("mv ", pdir, "/tmp.csv " , pdir, "/", filename)
  system(chl)
  system(mvit)
}