R marhdown rename and add R sweave