Add unlist() to eliminate R CMD check failures on GitHub

ropensci · Dec 6, 2021 · e427a36 · e427a36
1 parent dbcd3f7
commit e427a36
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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
       }