Fixed default of sanitize type argument to be 'latex' as specified in the docs

git-svn-id: svn://scm.r-forge.r-project.org/svnroot/xtable@109 edb9625f-4e0d-4859-8d74-9fd3b1da38cb

diff --git a/pkg/R/sanitize.R b/pkg/R/sanitize.R
index b5b83cf984135f1d191dbb6669cb34f24a3e0761..77404b77bb561c59510b6fe1cd59e33ca4782bfa 100644 (file)
--- a/pkg/R/sanitize.R
+++ b/pkg/R/sanitize.R
@@ -1,4 +1,4 @@
-sanitize <- function(str, type) {
+sanitize <- function(str, type = "latex") {
   if(type == "latex"){
     result <- str
     result <- gsub("\\\\", "SANITIZE.BACKSLASH", result)

diff --git a/pkg/man/sanitize.Rd b/pkg/man/sanitize.Rd
index 5b65808de75afeedac5f584e7a33524e1b25e3f7..f228a6dc591a94c458afa11bd45667f40ff35e9f 100644 (file)
--- a/pkg/man/sanitize.Rd
+++ b/pkg/man/sanitize.Rd
@@ -14,7 +14,7 @@
   meaning in the output format.\r
 }\r
 \usage{\r
-sanitize(str, type)\r
+sanitize(str, type = "latex")\r
 sanitize.numbers(str, type, math.style.negative = FALSE,\r
                  math.style.exponents = FALSE)\r
 sanitize.final(str, type)\r