lubridate, 날짜 시간을 형식화 된 시간 문자열로 변환

Question

왜 작동하지 않는지 알 수 없습니다. 여기 내 코드입니다 :

> t <- hms("14:11:49") 
> t 
[1] "14H 11M 49S" 
t <- t + minutes(3) 
> format(t, format="%H:%M:%S") 
[1] "14H 14M 49S" 
# Expected output: "14:14:49" 

업데이트 :

은 현재 내가이 솔루션을 찾았지만, 내가 하나 더 우아한이 희망 : 문제는 class(t) "는 점이다

t <- hms("14:11:49") # example period object 
sprintf("%s:%s:%s", hour(t), minute(t), second(t)) 
#"14:11:49" 

Answer 1

hms으로 변환해야하고 초기 문자열 형식으로 되돌아 가야하는 이유가 확실하지 않습니다.

library(lubridate) 
myTime <- "14:11:49" 
hms(myTime) 
#"14H 11M 49S" 

POSIXct_myTime <- parse_date_time(myTime,"hms") 
format(POSIXct_myTime, format="%H:%M:%S") 
#"14:11:49" 

---

편집 :

t <- hms("14:11:49") t #[1] "14H 11M 49S" t <- t + minutes(3) t #[1] "14H 14M 49S" paste(hour(t),minute(t),second(t),sep=":") #[1] "14:14:49" 

벤치 마크 출력

: 우리는 paste 사용할 수

op <- microbenchmark(
    Use_paste=paste(hour(t),minute(t),second(t),sep=":"), 
    Use_sprintf=sprintf("%s:%s:%s", hour(t), minute(t), second(t)), 
    times=1000000L) 
op 

# Unit: microseconds 
# expr min  lq median  uq  max neval 
# Use_paste 28.072 31.695 32.601 33.506 44253.42 1e+06 
# Use_sprintf 29.582 33.807 34.412 35.619 44367.52 1e+0 

Answer 2

기간 "이고 format.Period() 함수에는 format=에 대한 매개 변수가 없습니다. t 개체는 format()과 함께 사용하는 데 사용할 수있는 표준 POSIXt 스타일 개체가 아닙니다. format.POSIXct() 및 format.POSIXlt() 기능 만이 이와 유사하게 작동합니다.

아마도 가장 쉬운 방법은 Period 클래스를 POSIXct으로 바꾸는 도우미 함수를 정의하는 것입니다.

as.POSIXct.Period <- function(x, start=today()) { 
    X<-as.interval(x, start); 
    X@.Data+X@start 
} 

그것은 POSIXct는 날짜/시간 값뿐만 아니라 시간 값이므로주의하는 것이 중요합니다 : 우리는 함께 그렇게 할 수 있습니다. 그래서 기본적으로 우리는 오늘 그것이 자정에 시작되었다고 가정합니다. 그러나 "우리는 내가 내가 명백한 기능을 간과 한 때문에 아마 전문가 lubridate 사용자 아니에요 인정합니다 당신이

format(as.POSIXct(t), format="%H:%M:%S") 
# [1] "14:11:49" 

를 원하는 방식으로 형식을 사용할 수 있지만, 그것은으로 lubridate 클래스 포맷에 대한 옵션을 보인다 예쁜 "형식은 매우 제한적입니다.