datatemp<-structure(list(per_dis_identifiant = c(1L, 1L, 1L),
per_date_debut = structure(c(1420056600,
1420071000, 1420081200), class = c("POSIXct", "POSIXt"), tzone = ""),
per_date_fin = structure(c(1420071000, 1420081200, 1421000000
), class = c("POSIXct", "POSIXt"), tzone = ""), per_commentaires = c("fonct calcul",
"fonct calcul", "fonct calcul"), per_etat_fonctionnement = c(1L,
0L, 0L), per_tar_code = 1:3, libelle = c("Fonc normal", "Arr ponctuel",
"Arr maint")), .Names = c("per_dis_identifiant", "per_date_debut",
"per_date_fin", "per_commentaires", "per_etat_fonctionnement",
"per_tar_code", "libelle"), row.names = c(NA, 3L), class = "data.frame")
newdf<-split_per_day(data=datatemp,horodatedebut="per_date_debut",
horodatefin="per_date_fin")
Run the code above in your browser using DataLab