@@ -126,7 +126,9 @@ editor_status <- function (quiet = FALSE) {
126
126
dat $ status <- " FREE"
127
127
dat $ status [dat $ state == " OPEN" ] <- " BUSY"
128
128
129
- dat $ inactive_for <- get_elapsed_time (dat $ updated_at )
129
+ dtime <- get_elapsed_time (dat $ updated_at )
130
+ dat $ inactive_days <- dtime $ dtime_days
131
+ dat $ inactive_for <- dtime $ dtime
130
132
131
133
# Suppress no visible binding notes:\
132
134
stats <- status <- updated_at <- editor <- state <- inactive_for <-
@@ -148,12 +150,12 @@ get_elapsed_time <- function (tvec) {
148
150
149
151
d0 <- lubridate :: ymd_hms (Sys.time ())
150
152
d1 <- lubridate :: ymd_hms (tvec )
151
- dtime <- as.numeric (lubridate :: interval (d1 , d0 )) / (24 * 3600 ) # in days
152
- dtime [ dtime < 1 ] <- 1 # Mimimum 1 day
153
+ dtime_days <- as.numeric (lubridate :: interval (d1 , d0 )) / (24 * 3600 )
154
+ dtime_days [ dtime_days < 1 ] <- 1 # Mimimum 1 day
153
155
dtime <- cbind (
154
- round (dtime ),
155
- round (dtime * 52 / 365 ),
156
- round (dtime * 12 / 365 )
156
+ round (dtime_days ),
157
+ round (dtime_days * 52 / 365 ),
158
+ round (dtime_days * 12 / 365 )
157
159
)
158
160
dtime [is.na (dtime )] <- 1 # just to suppress NA warnings; removed below
159
161
@@ -170,5 +172,5 @@ get_elapsed_time <- function (tvec) {
170
172
dtime <- paste0 (dtime , " " , units )
171
173
dtime [which (is.na (d1 ))] <- NA
172
174
173
- return (dtime )
175
+ return (list ( dtime_days = round ( dtime_days ), dtime = dtime ) )
174
176
}
0 commit comments