Dubbeltellingen in qcout

[jspijker]

In het resultaat in qcout staan veel dubbeltellingen. Zie voorbeeld van dubbelingen in qc3d:

data(metingen)                                                                                                                                                                                                                                                                                                                                          
data(parameter)                                                                                                                                                                                                                                                                                                                                         
#example data contains multiple EC measurements                                                                                                                                                                                                                                                                                                         
metingen <- metingen %>%                                                                                                                                                                                                                                                                                                                                
    dplyr::filter(parameter != "ec_1__veld")                                                                                                                                                                                                                                                                                                            
x <- QC3d( d_metingen = metingen,d_parameter=parameter,  geleidendheid_veld_naam = "ec_5__veld") 

v1 <- attributes(x)                                                                                                                                                                                                                                                                                                                                    
head(v1$qcout$QC3d$resultaat)          

De output is:

 0 qcid    monsterid   jaar    maand   dag putcode filter  GELDHD  GELDHD_VELD oordeel                                                                                                                                                                                                                                                                     
  1 1       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
  2 1       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
  3 2       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
  4 2       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
  5 3       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
  6 3       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
  7 4       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
  8 4       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
  9 5       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
 10 5       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
 11 6       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               
 12 6       1           2014    3       31  1       1       50      44          twijfelachtig                                                                                                                                                                                                                                                               
 13 7       1           2014    3       31  1       1       60      54          twijfelachtig                                                                                                                                                                                                                                                               

de qcid id komt twee keer voor maar met twee verschillende waarden voor geleidbaarheid. Waarschijnlijk veroorzaakt doordat het filter niet is meegenomen in de 'iden'.

Bij het runnen van de tests komt er voor test een warning dat er many-to-many relaties zijn bij de left_joins in de tests. Waarschijnlijk veroorzaakt door bovenstaant probleem, dat voorkomt in meerdere functies. @gilsvda

[gilsvda]

afgerond met #86