From 928bbc9342ba49dde89b3bd8045085dbd4f67f12 Mon Sep 17 00:00:00 2001
From: jmbarbone <jmbarbone@gmail.com>
Date: Thu, 7 Oct 2021 09:44:13 -0400
Subject: [PATCH] prevents package matrix from coercing

---
 R/checkCRANStatus.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/checkCRANStatus.R b/R/checkCRANStatus.R
index d40eab6..a890c53 100644
--- a/R/checkCRANStatus.R
+++ b/R/checkCRANStatus.R
@@ -71,7 +71,7 @@ checkCRANStatus <- function(email, cache, cache.life=24 * 3600) {
             vapply(regmatches(x, submatch), "[[", character(1L), 2)
         })
         res.mx <- t(gsub("<[^>]*>|^\\s+|\\s+$", "", res))
-        res.mx.2 <- res.mx[-1, ]
+        res.mx.2 <- res.mx[-1, , drop = FALSE]
         colnames(res.mx.2) <- res.mx[1, ]
         res.df <- as.data.frame(res.mx.2, stringsAsFactors=FALSE)
         saveRDS(list(Sys.time(), res.df), cache)