R/getInfo.R

In livioivil/myFBr: Read and visualizes the infos of your FaceBook profile

##' @description Funzione che dato il percorso dei dati del profilo facebook ritorna alcune infomrazioni personali (dalla pagina settings.html)
##' 
##' @title indicazione del sesso del profilo
##' @param percorso stringa che indica il percorso della cartella dei dati del profilo
##' @return F,M
##' @export
##' @title getInfo
##' 
##' @author Davide Meneghetti, Livio Finos

getInfo <- function(percorso){
  percorso=fixPath(percorso)
  perE=paste(percorso,"/index.htm", sep="")
  pg=htmlParse(perE)#lettura intero file
  
  nome=getNodeSet(pg,"//tr[th[text()='Profilo']]/td/a/text()");
  nome=.estraielemento(nome[[1]])
  nome=gsub("http://www\\.facebook\\.com/","",nome)
  nome=gsub(" ","",nome)
  nome =ifelse(nome=="NULL",NA,nome)
  nome =ifelse(is.null(nome),NA,nome)
  
  email=getNodeSet(pg,"//tr[th[text()='E-mail']]/td/text()");
  email = .estraielemento(email[[1]])
  email=gsub(" $","",email)
  email=ifelse(is.null(email),NA,email)
  
  sesso=getNodeSet(pg,"//tr[th[text()='Sesso']]/td/text()");
  sesso = .cleanSex(sesso)
  if(is.na(sesso)){
    sesso=getNodeSet(pg,"//tr[th[text()='Genere']]/td/text()");
    sesso = .cleanSex(sesso)
  }
  
  
  dataReg=.getValore(pg,"//tr[th/text()='Data di registrazione']/td/text()")
  dataReg=inDataIT(dataReg)
  
  dataDown=.getDataDownload(pg)
  
  .getCittaNatale <- function(pg){
    out=.getValore(pg,"//tr[th/text()='Città natale']/td/text()")
    if(out=="NULL") out=NULL
    out
  }
  .getSituazSentim <- function(pg){
    out=.getValore(pg,"//tr[th/text()='Situazione sentimentale']/td/text()")
    if(out=="NULL") out=NULL
    out
  }
  
  
  data.frame(nome=nome,
             email=email,dataReg=dataReg,
             dataDownload=dataDown,
             sesso=sesso,
             dataNascita=as.POSIXct(.getValore(pg,"//tr[th/text()='Data di nascita']/td/text()"),format ="%m/%d/%Y",tz="UTC"),
             cittaNatale=.getValore(pg,"//tr[th/text()='Città natale']/td/text()"),
             situazSentim=.getValore(pg,"//tr[th/text()='Situazione sentimentale']/td/text()")
  )
}#getSesso