From 291337e920cc95510fce3c0cdcc62b4443cd3bc4 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Thu, 13 Oct 2016 14:03:19 +0200
Subject: Fix retrieving pubchem infos for ambiguous names

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

(limited to 'R/chent.R')

diff --git a/R/chent.R b/R/chent.R
index e170307..fe87d5e 100644
--- a/R/chent.R
+++ b/R/chent.R
@@ -89,7 +89,7 @@ chent <- R6Class("chent",
     try_pubchem = function(identifier) {
       message("PubChem:")
       if (missing(identifier)) identifier <- self$identifier
-      pubchem_cids = webchem::get_cid(identifier)
+      pubchem_cids = webchem::get_cid(identifier)[[identifier]]
 
       if (is.na(pubchem_cids[1])) {
         message("Query ", identifier, " did not give results at PubChem")
-- 
cgit v1.2.1