Minor change for test of encoding

plotting/panel.R

@@ -111,14 +111,6 @@ panel = function (df_data, df_meta, figdir, filedir_opt='', filename_opt='', var
             missRect = list_df2plot[[i]]$missRect
             type = list_df2plot[[i]]$type
 
-            # print(list_df2plot)
-
-            # print(df_data)
-            # print(df_trend)
-            # print(p_threshold)
-            # print(unit2day)
-            # print(missRect)
-
             p = time_panel(code, df_data, df_trend, missRect,
                            p_threshold, unit2day, type)
 
@@ -135,10 +127,6 @@ panel = function (df_data, df_meta, figdir, filedir_opt='', filename_opt='', var
                                       rep(2/((nbg-2)*2+2), nbg-2)), 
                             ncol=1, nrow=nbg)
 
-        # plot = grid.arrange(gtext, P[[1]], void, void, void,
-                            # heights=c(1/7, 3/7, 1/7, 1/7, 1/7), 
-                            # ncol=1, nrow=5)
-
         # Saving
         ggsave(plot=plot, 
                path=outdirTmp,
@@ -269,13 +257,6 @@ text_panel = function(code, df_meta) {
 }
 
 
-
-
-
-
-
-
-
 void = ggplot() + geom_blank(aes(1,1)) +
     theme(
         plot.background = element_blank(), 

processing/analyse.R

@@ -139,8 +139,6 @@ get_QMNAtrend = function (df_data, period) {
                             pos.datetime=1,
                             na.rm=TRUE)
 
-    print(df_QMNAEx)
-
     ### /!\ NOM DE COLONNE PAS CONSERVER ###
     df_QMNAlist = reprepare(df_QMNAEx, df_QMNAlist, colnamegroup=c('code'))
 
@@ -151,8 +149,6 @@ get_QMNAtrend = function (df_data, period) {
                             pos.datetime=1,
                             na.rm=TRUE)
 
-    print(df_QMNAEx)
-
     df_QMNAtrend = Estimate.stats(data.extract=df_QMNAEx)
 
     res_QMNAtrend = clean(df_QMNAtrend, df_QMNAEx, df_QMNAlist)

processing/extractBH.R

@@ -70,6 +70,7 @@ get_selection = function (computer_data_path, listdir, listname,
     
     df_selec = df_selec[-1,]
     
+    # Change the columns name
     names(df_selec) = cnames
 
     for (c in c_num) {

processing/extractNV.R

@@ -39,6 +39,8 @@ extractNVlist_meta = function (computer_data_path, filedir, listdir, listname, v
 
         exist = df_meta$CODE %in% codelist
         missing = codelist[!(codelist %in% df_meta$CODE)]
+        
+        # Display stations for which it misses metadata
         print(paste('missing station meta for :', missing))
         
         df_meta = df_meta[exist,]

processing/format.R

+# Usefull library
 library(dplyr)
 
+
 join = function (df_data_BH, df_data_NV, df_meta_BH, df_meta_NV) {
 
     if (!is.null(df_data_NV) & !is.null(df_data_BH)) {