cleaned up method namign

R/core_commons.R

@@ -207,9 +207,10 @@ rmerge <- function(LDF, by, ...){
 
 
 
+## Deprecated: use trim_ext instead
+trimEnd <- function(fileNames, ...) trim_ext(fileNames, ...)
 
-trim_ext <- function(fileNames, ...) trimEnd(fileNames, ...)
-trimEnd <-function(fileNames, exts=c()){
+trim_ext <-function(fileNames, exts=c()){
     for(fileExt in exts){
         fileNames <- str_replace(fileNames, paste(fileExt, "$",sep=""), "")
     }

R/ggplot_commons.R

@@ -5,6 +5,8 @@ require.auto(grid)
 
 scale_fill_redgreed <- function() scale_fill_manual(values = c("red","darkgreen"))
 
+rot_x_lab <- function() theme(axis.text.x = element_text(angle = 90, hjust = 1))
+## DEPRACTED because of naming
 rotXlab <- function() theme(axis.text.x = element_text(angle = 90, hjust = 1))