update support fun.R
remove supportfun.json
disable source function for R sweave doc