Finished documentation changes to xtableFtable and xtableList. Package should be...

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

diff --git a/pkg/R/sanitize.R b/pkg/R/sanitize.R
index c31a660f7fd8bcc84191d53288a8902536744116..b5b83cf984135f1d191dbb6669cb34f24a3e0761 100644 (file)
--- a/pkg/R/sanitize.R
+++ b/pkg/R/sanitize.R
@@ -87,3 +87,11 @@ sanitize.final <- function(str, type){
     return(str)
   }
 }
+
+### Some trivial helper functions
+### Suggested by Stefan Edwards, sme@iysik.com
+### Helper function for disabling sanitizing
+as.is <- function(str) {str}
+
+### Helper function for embedding names in a math environment
+as.math <- function(str, ...) { paste0('$',str,'$', ...) }