f.myfunction <- function(table,column){
[here i change same values of table$column]
return(paste(table,"$",column,sep=""))
}

t.xxx = paste0(table,"$",column,sep = "")
return(eval(parse(text = t.xxx)))

f.myfunction <- function(table,column){
  t.xxx = paste0(table,"$",column,sep = "")
  eval(parse(text = t.xxx) <- gsub(99,97,eval(parse(text = t.xxx)))
  eval(parse(text = t.xxx) <- gsub(98,96,eval(parse(text = t.xxx)))
  return(paste(table,"$",column,sep=""))
}