From 3f055eee219d9aa4fccb5f08139807bc077b601b Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 17 Jun 2024 17:59:51 +0200 Subject: [PATCH] allow # in table --- PrintRScript.py | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/PrintRScript.py b/PrintRScript.py index f8aaa96..0be3eff 100755 --- a/PrintRScript.py +++ b/PrintRScript.py @@ -125,7 +125,7 @@ class Alceste2(PrintRScript): # -def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=1): +def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'svdR', libsvdc = False, libsvdc_path = None, R_max_mem = False, mode_patate = False, nbproc=10): txt = """ source("%s") source("%s") @@ -176,7 +176,7 @@ def RchdTxt(DicoPath, RscriptPath, mincl, classif_mode, nbt = 9, svdmethod = 'sv row.names(data2) <- 1:nrow(data2) """ % ffr(DicoPath['TableUc2']) txt += """ - log1 <- "%s" + #log1 <- "%s" #print('FIXME : source newCHD') #source('/home/pierre/workspace/iramuteq/Rscripts/newCHD.R') #nbproc <- %s @@ -741,7 +741,7 @@ class PrintSimiScript(PrintRScript): """ txt += """ dm <-readMM(dm.path) - cn <- read.table(cn.path, sep="\t", quote='"') + cn <- read.table(cn.path, sep="\t", quote='"', comment.char="") colnames(dm) <- cn[,1] if (file.exists(selected.col)) { sel.col <- read.csv2(selected.col, header = FALSE) -- 2.7.4