From e427a36cbebf4c092f1fab1118514a88ae7fd9e5 Mon Sep 17 00:00:00 2001
From: Tamas Stirling <stirling.tamas@gmail.com>
Date: Mon, 6 Dec 2021 08:04:27 +0100
Subject: [PATCH] Add unlist() to eliminate R CMD check failures on GitHub

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

diff --git a/R/chemid.R b/R/chemid.R
index 8c917947..fd62ed23 100644
--- a/R/chemid.R
+++ b/R/chemid.R
@@ -125,7 +125,7 @@ ci_query <- function(query, from = c("rn", "inchikey"),
         physprop <- NA
       } else {
         physprop <- html_table(xml_find_all(ttt, "//h2[contains(., 'Physical Prop')]/following-sibling::div//table"))[[1]]
-        physprop[ , 'Value'] <- as.numeric(physprop[ , 'Value'])
+        physprop[ , 'Value'] <- as.numeric(unlist(physprop[ , 'Value']))
         #= same as physprop
       }