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