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

[xtable.git] / pkg / R / sanitize.R

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)