From a5e851a5d81194bef25c3f3a32e355e5795cdde1 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <johannes.ranke@jrwb.de>
Date: Fri, 13 Mar 2026 13:19:36 +0100
Subject: Small improvements, see NEWS.md

In the README, improve the scaling of the graphs
---
 R/chent.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R')

diff --git a/R/chent.R b/R/chent.R
index 5302ef9..c118558 100644
--- a/R/chent.R
+++ b/R/chent.R
@@ -235,7 +235,7 @@ chent <- R6Class("chent",
               smiles_preferred, " SMILES\n",
               self$smiles[smiles_preferred])
       self$rdkit <- list()
-      self$mol <- rdkit_module$Chem$MolFromSmiles(self$smiles[1])
+      self$mol <- rdkit_module$Chem$MolFromSmiles(self$smiles[smiles_preferred])
       self$rdkit$mw <- rdkit_module$Chem$Descriptors$MolWt(self$mol)
       if (!is.null(self$mw) && !is.na(self$mw)) {
         if (round(self$rdkit$mw, 1) != round(self$mw, 1)) {
@@ -643,7 +643,7 @@ draw_svg.chent = function(x, width = 300, height = 150,
 #' }
 plot.chent = function(x, ...) {
   if (is.null(x$Picture)) stop("No Picture object in chent, was RDKit available during creation?")
-  grid.picture(x$Picture)
+  grid.picture(x$Picture, ...)
 }
 
 #' @title An R6 class for pesticidal active ingredients and associated data
-- 
cgit v1.2.3