Skip to content
GitLab
Select Git revision
  • master default
Find file BlameHistoryPermalink
results_manager.R 4.01 KiB
1 
# \\\
2 
# Copyright 2021-2022 Louis Héraut*1
3 
#
4 
# *1   INRAE, France
5 
#      louis.heraut@inrae.fr
6 
#
7 
# This file is part of ash R toolbox.
8 
#
9 
# ash R toolbox is free software: you can redistribute it and/or modify
10 
# it under the terms of the GNU General Public License as published by
11 
# the Free Software Foundation, either version 3 of the License, or (at
12 
# your option) any later version.
13 
#
14 
# ash R toolbox is distributed in the hope that it will be useful, but
15 
# WITHOUT ANY WARRANTY; without even the implied warranty of
16 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17 
# General Public License for more details.
18 
#
19 
# You should have received a copy of the GNU General Public License
20 
# along with ash R toolbox.  If not, see <https://www.gnu.org/licenses/>.
21 
# ///
22 
#
23 
#
24 
# results_manager.R
25 
#
26 
# Manages the writing and reading of results data of the trend analysis.
27
28 
## 1. WRITING ________________________________________________________
29 
### 1.1. List of dataframe ___________________________________________
30 
write_listofdf = function (Ldf, resdir, filedir, optdir='') {
31
32 
    outdir = file.path(resdir, optdir, filedir)
33 
    if (!(file.exists(outdir))) {
34 
        dir.create(outdir, recursive=TRUE)
35 
    }
36
37 
    print(paste('Writing of list of dataframe in : ', outdir, sep=''))
38
39 
    Lname = names(Ldf)
40 
    Nname = length(Lname)
41 
    for (i in 1:Nname) {
42 
        outfile = paste(Lname[i], '.txt', sep='')
43
44 
        write.table(Ldf[[i]],
45 
                    file=file.path(outdir, outfile),
46 
                    sep=";",
47 
                    quote=TRUE,
48 
                    row.names=FALSE)
49 
    }
50 
}
51
52 
### 2.2. Dataframe of modified data __________________________________
53 
write_dfdata = function (df_data, df_mod, resdir, filedir, optdir='') {
54
55 
    Code = rle(sort(df_mod$code))$values
56 
    print(Code)
57
58 
    outdir = file.path(resdir, optdir, filedir)
59 
    if (!(file.exists(outdir))) {
60 
        dir.create(outdir, recursive=TRUE)
61 
    }
62
63 
    print(paste('Writing of modified data in : ', outdir, sep=''))
64
65 
    for (code in Code) {
66 
        df_data_code = df_data[df_data$code == code,]
67 
        df_mod_code = df_mod[df_mod$code == code,]
68
69 
        outfile1 = paste(code, '.txt', sep='')
70 
        write.table(df_data_code,
7172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130
file=file.path(outdir, outfile1), sep=";", quote=TRUE, row.names=FALSE) outfile2 = paste(code, '_modification', '.txt', sep='') write.table(df_mod_code, file=file.path(outdir, outfile2), sep=";", quote=TRUE, row.names=FALSE) } } ## 2. READING ________________________________________________________ ### 2.1. List of dataframe ___________________________________________ read_listofdf = function (resdir, filedir) { outdir = file.path(resdir, filedir) files = list.files(outdir) Nfile = length(files) print(paste('Reading of list of dataframe in : ', outdir, sep='')) Ldf = list() for (i in 1:Nfile) { name = splitext(files[i])$name df = as_tibble(read.table(file=file.path(outdir, files[i]), header=TRUE, sep=";", quote='"')) for (j in 1:ncol(df)) { if (is.factor(df[[j]])) { d = try(as.Date(df[[1, j]], format="%Y-%m-%d")) if("try-error" %in% class(d) || is.na(d)) { df[j] = as.character(df[[j]]) } else { df[j] = as.Date(df[[j]]) } } } # OkFact = sapply(df, is.factor) # df[OkFact] = lapply(df[OkFact], as.character) Ldf = append(Ldf, list(df)) names(Ldf)[length(Ldf)] = name } return (Ldf) } ## 3. OTHER __________________________________________________________ splitext = function(file) { ex = strsplit(basename(file), split="\\.")[[1]] res = list(name=ex[1], extension=ex[2]) return (res) }