Discussion :

[Wenchetan]

Hello tout le monde !

Aujourd'hui j'essaie de faire des analyses via R sur une puissance en fonction du temps.
J'aimerais demander a l'utilisateur la période qu'il souhaite analyser, cependant pour l'analyse en question j'ai besoin d'agrandir la période que l'utilisateur veut comme regarder jusqu'à une demi-heure après et 20 minutes avant.

J'essais de faire comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HFMod_Réel <- seconds_to_period(substr(as.character(as.duration(hms(HFMod))+1800),1,5))

avec HFMod ce que l'utilisateur entre comme fin de période
Cependant le résultat sortie n'est pas exploitable pour aller piocher dans la base de donnée sur la puissance qui est au format "hh:mm:ss".

Comment pourrais-je faire à partir des horaires de début et de fin entré par l'utilisateur pour agrandir la période de 30 minutes à la fin et de 20 minutes au début ?

[mgdondon]

Bonjour,

Vous pouvez regarder du côté du package lubridate :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
> library(lubridate)
> dt <- ymd_hms("2018/04/25 12:30:00")
> dt
[1] "2018-04-25 12:30:00 UTC"
> dt.min <- dt - dminutes(20)
> dt.min
[1] "2018-04-25 12:10:00 UTC"
> dt.max <- dt + dminutes(30)
> dt.max
[1] "2018-04-25 13:00:00 UTC"

Cordialement,

[Wenchetan]

Bonjour,
Tout d'abord merci je ne connaissais pas ce tricks sur l'ajout de minutes,
Cependant j'aimerais repasser cette heure directement dans le format "hh:mm:ss" car c'est comme ça que c'est écrit dans le fichier dans le quel le programme ira chercher.
Une fois que je passe en hms() je n'arrive pas à faire la fonction inverse et revenir en "hh:mm:ss".

[mgdondon]

Bonjour,

Le package hms, avec lubridate, permet de manipuler des heures seules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
> library(lubridate)
> library(hms)
> hms::as.hms(hms::as.hms("10:45:00") + dminutes(20))
11:05:00

Cordialement,