also return editors inactive_days as int column

Author: mpadge

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: dashboard
 Title: What the Package Does (One Line, Title Case)
-Version: 0.0.1.003
+Version: 0.0.1.004
 Authors@R: 
   person(given = "First",
          family = "Last",

R/editors.R

@@ -126,7 +126,9 @@ editor_status <- function (quiet = FALSE) {
     dat$status <- "FREE"
     dat$status [dat$state == "OPEN"] <- "BUSY"
 
-    dat$inactive_for <- get_elapsed_time (dat$updated_at)
+    dtime <- get_elapsed_time (dat$updated_at)
+    dat$inactive_days <- dtime$dtime_days
+    dat$inactive_for <- dtime$dtime
 
     # Suppress no visible binding notes:\
     stats <- status <- updated_at <- editor <- state <- inactive_for <-
@@ -148,12 +150,12 @@ get_elapsed_time <- function (tvec) {
 
     d0 <- lubridate::ymd_hms (Sys.time ())
     d1 <- lubridate::ymd_hms (tvec)
-    dtime <- as.numeric (lubridate::interval (d1, d0)) / (24 * 3600) # in days
-    dtime [dtime < 1] <- 1 # Mimimum 1 day
+    dtime_days <- as.numeric (lubridate::interval (d1, d0)) / (24 * 3600)
+    dtime_days [dtime_days < 1] <- 1 # Mimimum 1 day
     dtime <- cbind (
-        round (dtime),
-        round (dtime * 52 / 365),
-        round (dtime * 12 / 365)
+        round (dtime_days),
+        round (dtime_days * 52 / 365),
+        round (dtime_days * 12 / 365)
     )
     dtime [is.na (dtime)] <- 1 # just to suppress NA warnings; removed below
 
@@ -170,5 +172,5 @@ get_elapsed_time <- function (tvec) {
     dtime <- paste0 (dtime, " ", units)
     dtime [which (is.na (d1))] <- NA
 
-    return (dtime)
+    return (list (dtime_days = round (dtime_days), dtime = dtime))
 }

codemeta.json

@@ -6,7 +6,7 @@
   "name": "dashboard: What the Package Does (One Line, Title Case)",
   "codeRepository": "https://github.com/ropensci-review-tools/dashboard",
   "license": "https://spdx.org/licenses/MIT",
-  "version": "0.0.1.003",
+  "version": "0.0.1.004",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",