suppress warnings in converting NA review hours #37

Author: mpadge

DESCRIPTION

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

R/review-history.R

@@ -140,8 +140,12 @@ rev_hours_airtable <- function () {
         rev_hours$`reviews`$select_all (fields = fields)
     # airtable 'id_no' fields do not all equal actual issue numbers
     # (for example, id_no = 217 is for issue #214).
-    rev_hours$number <- as.integer (gsub ("^.*\\/", "", rev_hours$onboarding_url))
-    rev_hours$review_hours <- as.numeric (rev_hours$review_hours)
+    rev_hours$number <- suppressWarnings (
+        as.integer (gsub ("^.*\\/", "", rev_hours$onboarding_url))
+    )
+    rev_hours$review_hours <- suppressWarnings (
+        as.numeric (rev_hours$review_hours)
+    )
     rev_hours <- rev_hours [which (!is.na (rev_hours$number) & !is.na (rev_hours$review_hours)), ]
 
     rev_hist <- m_review_history (quiet = TRUE)

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.2.2.039",
+  "version": "0.2.2.040",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",