disable source function for R sweave doc