R/getStati.R

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

# funzione per il numero di posti in cui ? stata 
getStati<-function(percorso){
  #numero stati
  perA=.getWallPath(percorso)
  #lettura intero file
  pg=htmlParse(perA)
  
  comm=length(getNodeSet(pg,"//div[@class='contents']/div/div[@class='comment']"))
  #creazione dataset
  "stati" <- structure(.Data = list(comm),
                       names = c("N.Stati"),
                       row.names = c(1:1),
                       class = "data.frame")
  return(stati)
}