iramuteq.org Git - iramuteq/blob - profile_segment.py

   1 #!/bin/env python
   2 # -*- coding: utf-8 -*-
   3 # Author: Pierre Ratinaud
   4 # Copyright (c) 2010, Pierre Ratinaud
   5 # License: GNU/GPL
   6
   7 import tempfile
   8 from ProfList import *
   9 import wx
  10 import wx.lib.agw.aui as aui
  11 from functions import exec_rcode, check_Rresult, ReadProfileAsDico, ReadList
  12 from listlex import *
  13 from dialog import PrefSegProf, PrefProfTypes
  14 from time import sleep
  15 from chemins import ffr
  16
  17 class ProfileSegment() :
  18     def __init__(self, parent, pathout, parametres, corpus) :
  19         self.parent = parent
  20         self.corpus = corpus
  21         self.dictpathout = pathout
  22         self.parametres = parametres
  23         dial = PrefSegProf(self.parent)
  24         dial.CenterOnParent()
  25         if dial.ShowModal() == wx.ID_OK :
  26             if dial.box_lem.GetSelection() == 0 :  # @IndentOk
  27                 self.lem = True
  28             else :
  29                 self.lem = False
  30             self.mini = dial.spin_min.GetValue()
  31             self.maxi = dial.spin_max.GetValue()
  32             self.eff = dial.spin_eff.GetValue()
  33             dial.Destroy()
  34             self.dlg = progressbar(self, maxi=4)
  35             self.dlg.Update(1, u'Recherche des segments')
  36             self.make_table()
  37             self.make_prof()
  38             self.dlg.Update(3, u'ouverture des profils')
  39             self.do_layout()
  40             self.dlg.Update(4, 'fini')
  41             self.dlg.Destroy()
  42
  43     def make_table(self) :
  44         self.corpus.make_segments_profile(self.dictpathout['segments_classes'], lenmin=self.mini, lenmax=self.maxi, effmin=self.eff, lem=self.lem)
  45
  46     def make_prof(self) :
  47         txt = """
  48         load("%s")
  49         source("%s")
  50         """ % (ffr(self.dictpathout['RData']), ffr(self.parent.RscriptsPath['chdfunct']))
  51
  52         txt += """
  53         dt <- read.csv2("%s", row.names = 1)
  54         to <- build.pond.prof(dt)
  55         PrintProfile(n1,to[4],NULL,to[5],NULL,clnb,"%s","%s")
  56         """ % (ffr(self.corpus.dictpathout['segments_classes']), ffr(self.dictpathout['prof_seg']), ffr(self.dictpathout['antiprof_seg']))
  57         fo = tempfile.mktemp(dir=self.parent.TEMPDIR)
  58         with open(fo, 'w') as f :
  59             f.write(txt)
  60         pid = exec_rcode(self.parent.RPath, fo, wait=False)
  61         while pid.poll() == None :
  62             self.dlg.Pulse(u'Construction des profils...')
  63             sleep(0.2)
  64         check_Rresult(self.parent, pid)
  65
  66     def do_layout(self) :
  67         SelectTab = self.parent.nb.GetSelection()
  68         page = self.parent.nb.GetPage(SelectTab).TabChdSim
  69         prof_seg = ReadProfileAsDico(self.dictpathout['prof_seg'], True, self.parent.syscoding)
  70         prof_seg_nb = aui.AuiNotebook(self.parent, -1, wx.DefaultPosition)
  71         for i in range(0, len(self.corpus.lc)) :
  72             ntab = ProfListctrlPanel(self.parent, self, prof_seg[str(i + 1)], False, i + 1)
  73             prof_seg_nb.AddPage(ntab, 'classe %i' % (i + 1))
  74         page.AddPage(prof_seg_nb, u'Profils des segements répétés')
  75         page.SetSelection(page.GetPageCount() - 1)
  76
  77 class ProfilType() :
  78     def __init__(self, parent, corpus, parametres) :
  79         self.parent = parent
  80         self.corpus = corpus
  81         self.parametres = parametres
  82         self.outprof = self.corpus.dictpathout['prof_type']
  83         dial = PrefProfTypes(self.parent)
  84         dial.fbb.SetValue(self.outprof)
  85         dial.CenterOnParent()
  86         res = dial.ShowModal()
  87         if res == wx.ID_OK :
  88             if dial.radio_type.GetSelection() == 0 :
  89                 alceste = True
  90             else :
  91                 alceste = False
  92             # if 'outprof' in self.corpus.parametre :
  93             #    self.corpus.parametre['outprof'][self.outprof] = alceste
  94             # else :
  95             #    self.corpus.parametre['outprof'] = {self.outprof: alceste}
  96             self.dlg = progressbar(self, maxi=4)
  97             self.dlg.Update(1, u'Recherche des types')
  98             self.make_table()
  99             self.dlg.Update(1, u'Construction des profils')
 100             self.make_prof(alceste=alceste)
 101             self.dlg.Update(3, u'Ouverture des profils')
 102             self.do_layout(alceste=alceste)
 103             self.dlg.Update(4, 'fini')
 104             self.dlg.Destroy()
 105
 106     def make_table(self) :
 107         self.corpus.make_proftype(self.corpus.dictpathout['type_cl'])
 108
 109     def make_prof(self, alceste=True) :
 110         txt = """
 111         load("%s")
 112         source("%s")
 113         """ % (ffr(self.corpus.dictpathout['RData']), ffr(self.parent.RscriptsPath['chdfunct']))
 114
 115         txt += """
 116         dt <- read.csv2("%s", row.names = 1)
 117         """ % ffr(self.corpus.dictpathout['type_cl'])
 118         if alceste :
 119             txt += """
 120             to <- build.pond.prof(dt)
 121             PrintProfile(n1,to[4],NULL,to[5],NULL,clnb,"%s","%s")
 122             """ % (ffr(self.outprof), ffr(self.corpus.dictpathout['antiprof_type']))
 123         else :
 124             txt += """
 125             to <- AsLexico2(dt)
 126             write.csv2(to[[1]], file = "%s")
 127             """ % (ffr(self.outprof))
 128             # write.csv2(to[[3]], file = "%s")
 129             # % (self.outprof)
 130         fo = tempfile.mktemp(dir=self.parent.TEMPDIR)
 131         with open(fo, 'w') as f :
 132             f.write(txt)
 133         pid = exec_rcode(self.parent.RPath, fo, wait=False)
 134         while pid.poll() == None :
 135             self.dlg.Pulse(u'Construction des profils...')
 136             sleep(0.2)
 137         check_Rresult(self.parent, pid)
 138
 139     def do_layout(self, alceste=True) :
 140         SelectTab = self.parent.nb.GetSelection()
 141         page = self.parent.nb.GetPage(SelectTab).TabChdSim
 142         prof_seg_nb = aui.AuiNotebook(self.parent, -1, wx.DefaultPosition)
 143         if alceste :
 144             prof_seg = ReadProfileAsDico(self.outprof, True)
 145             for i in range(0, len(self.corpus.lc)) :
 146                 ntab = ProfListctrlPanel(self.parent, self, prof_seg[str(i + 1)], False, i + 1)
 147                 prof_seg_nb.AddPage(ntab, 'classe %i' % (i + 1))
 148         else :
 149             self.DictSpec, first = ReadList(self.outprof)
 150             self.ListPan = ListForSpec(self.parent, self, self.DictSpec, first[1:])
 151             prof_seg_nb.AddPage(self.ListPan, u'Spécificités')
 152
 153         page.AddPage(prof_seg_nb, u'Profils des types')
 154         page.SetSelection(page.GetPageCount() - 1)
 155