R/whiteBoard.R

In kbolab/radioP: What the package does (short line)

library(XML)

buildExamProbabilityCache<-function() {
  
  listaNodi<-getNodeSet(jradio.xml,'/root/esame/dati_esame')
  matrice<-c()
  for(i in listaNodi) {
    nomeEsame<-xpathApply(xmlDoc(i),'/dati_esame',xmlAttrs)
    nomeEsame<-nomeEsame[[1]]["nome_esame"]
    listaFamiglieAssociate<-xpathApply(xmlDoc(i),'/dati_esame/associazione_famiglia_esame',xmlAttrs)
    
    
    for( ii in seq(1,length(listaFamiglieAssociate))) {
     matrice<-rbind( matrice, c(nomeEsame, listaFamiglieAssociate[[ii]]["nome_famiglia"],listaFamiglieAssociate[[ii]]["richieste"]   )  ) 
    }    
  }
  sommaTotale<-sum(as.numeric(matrice[,3]))
  colonnaCumulativi<-cumsum(as.numeric(matrice[,3]))/sommaTotale
  matrice<-cbind(matrice,colonnaCumulativi)
  examProbabilityCache<<-matrice;  
}

getRandomExam<-function() {
  if( length(examProbabilityCache)==0 ) buildExamProbabilityCache();
  numeroRandom <- runif(1)
  newArr<-as.numeric(examProbabilityCache[,4])-numeroRandom
  newArr[newArr<0]<-1
  posizioneMinimo<-which ( newArr==min(newArr),arr.ind = T  ) 
  return(examProbabilityCache[posizioneMinimo,])  
}
getIdFromFamilyName<-function(familyName) {
  if( length(IdVSFamilyNameCache)==0 ) {
    a<-xpathApply(jradio.xml,'/root/famiglie/tipo_famiglia',xmlAttrs)
    IdVSFamilyNameCache<<-c()
    for( i in seq(1,length(a)))    {
      IdVSFamilyNameCache<<-rbind(IdVSFamilyNameCache,c( a[[i]]["id_tipo_famiglia"], a[[i]]["nome_famiglia"],a[[i]]["durata"]))
    }
  }
  a<-which(IdVSFamilyNameCache[,2]==familyName,arr.ind = T)
  if( length(a) == 0 ) {cat("#fhd8hf8dh8fd"); stop();}
  return(IdVSFamilyNameCache[which(IdVSFamilyNameCache[,2]==familyName,arr.ind = T),1])
  
}

buildCalendarStruct<-function(   ) {
  # per ogni disgnostica
  calendar<-list()
  listaSale<-getNodeSet(jradio.xml,'/root/diagnostica/dati_diagnostica')
  for( i in listaSale) {
    aTT<-xmlAttrs(i)["id_dati_diagnostica"]
    calendar[[ aTT["id_dati_diagnostica"][1]   ]]<-list()
    calendar[[ aTT["id_dati_diagnostica"][1]   ]][[1]]<-list()
    for(ct in seq(1, (60/5)*24  )) {
      calendar[[ aTT["id_dati_diagnostica"][1]   ]][[1]][[ ct ]]<-list()
    }        
    for( days in seq(1,365)) {       
      calendar[[ aTT["id_dati_diagnostica"][1]   ]][[ days ]] <- calendar[[ aTT["id_dati_diagnostica"][1]   ]][[1]]
    }
  }
  # ora leggi l'XML per popolare il calendario
  lRules<-getNodeSet(jocc.xml,'/root/rules/rule')  
  
  for( i in lRules ) {
    aTT<-xmlAttrs( i )  
    cDiagnostica<-aTT["cDiagnostica"]
    fromSlot<-as.numeric(aTT["fromSlot"])
    toSlot<-as.numeric(aTT["toSlot"])
    dayOfTheWeek<-aTT["dayOfTheWeek"]
    fromDay<-as.numeric(aTT["fromDay"])
    toDay<-as.numeric(aTT["toDay"])
    cFamiglia<-as.numeric(aTT["cFamiglia"])
    period<-aTT["period"]
    if ( period == "w" ) {
      for( ii in seq(from=fromDay,to=toDay,by=7)) {
        
        for(iii in seq(from=fromSlot, to=toSlot)) {
          if( !(cFamiglia %in% calendar[[ cDiagnostica ]][[ii]][[iii]] )) {
            ct<-length(calendar[[ cDiagnostica ]][[ii]][[iii]])+1
            calendar[[ cDiagnostica ]][[ii]][[iii]][[ct]]<-cFamiglia
          }
        }
      }
    } else { cat ("#gj9fj9gf"); stop(); }
  }
  
  calendar<<-calendar
  
  quickCalendar<-list();
  for(cDiagn in names(calendar)) {
    quickCalendar[[ cDiagn ]]<-list()
    for( day in seq(1,MAXDAY)) {
      quickCalendar[[ cDiagn ]][[ day ]]<-list()
      quickCalendar[[ cDiagn ]][[ day ]]<-fillQuickCalendar( cDiagn, day )
    }
  }
  
  
  quickCalendar<<-quickCalendar
  
}

fillQuickCalendar<-function( cDiagn, day ) {
  
    lista<-calendar[[ cDiagn ]][[ day ]]
    defOut<-list();    

    for(i in seq(1,dim(IdVSFamilyNameCache)[1] )   ) {
      nomeFamiglia<-IdVSFamilyNameCache[i,"nome_famiglia"]
      defOut[[nomeFamiglia]]<-list()
      defOut[[nomeFamiglia]][[cDiagn]]<-list()
      
      # per ogni slot
      for(ii in seq( from=length( lista )-1, to = 2, by = -1 )) {

        # calcola da lì in poi  print("d") 
        for(iii in seq( ii-1, to = 1, by = -1 )) {
          if( cDiagn=="2") browser()          
          if( cDiagn %in% calendar[[ cDiagn ]][[ day ]][[ iii ]]) { 
            defOut[[nomeFamiglia]][[cDiagn]][[iii]]<-defOut[[nomeFamiglia]][[cDiagn]][[iii]]+1
          }
          else {
            defOut[[nomeFamiglia]][[cDiagn]][[ii]]=1
          }          
        }               
      }      
    }
    print(length(calendar))
    stop()  
}

findOutTheFirstPositionInAgenda<-function(examName,familyName) {
  IdFamiglia<-getIdFromFamilyName(familyName)
  if( length(calendar)==0 ) buildCalendarStruct()
  print("d")
  durataTipicaEsame<-as.numeric(IdVSFamilyNameCache[which(IdVSFamilyNameCache[,2]==familyName,arr.ind = T),3])
  # scorri i giorni della settimana per cercare il giorno giusto
  for(i in seq(1,MAXDAY)) {

    
    
  }
  print(durataTipicaEsame)
stop()
  
}


phoneCall<-function(atTime) {
  examStruct<-getRandomExam()
  findOutTheFirstPositionInAgenda( examName = examStruct["nome_esame"], familyName = examStruct["nome_famiglia"] )
}


IdVSFamilyNameCache<-c()
calendar<<-list()
quickCalendar<<-list()
numOfReservation<-50
examProbabilityCache<<-list()
jradio.xml = xmlInternalTreeParse("./jradio.xml")
jocc.xml = xmlInternalTreeParse("./jocc.xml")
MAXDAY<<-100


for(i in seq(1,50)) {
  phoneCall(atTime=i)
}