From 09ab20702e3607985a199a3dc526bd6d9989a028 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kirill=20M=C3=BCller?= <kirill@cynkra.com>
Date: Tue, 30 Jan 2024 10:52:09 +0000
Subject: [PATCH] version 2.0.1.1 from CRAN

---
 DESCRIPTION | 2 +-
 R/plot.R    | 8 ++------
 2 files changed, 3 insertions(+), 7 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b4cbfa9e71..cb1cbe614c 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: igraph
-Version: 2.0.1
+Version: 2.0.1.1
 Title: Network Analysis and Visualization
 Authors@R: c(
     person("Gábor", "Csárdi", , "csardi.gabor@gmail.com", role = "aut",
diff --git a/R/plot.R b/R/plot.R
index 07838d30fb..5e51a4c629 100644
--- a/R/plot.R
+++ b/R/plot.R
@@ -863,7 +863,7 @@ igraph.Arrows <-
            open = TRUE,
            sh.adj = 0.1,
            sh.lwd = 1,
-           sh.col = if (is.R()) par("fg") else 1,
+           sh.col =  par("fg"),
            sh.lty = 1,
            h.col = sh.col,
            h.col.bo = sh.col,
@@ -875,11 +875,7 @@ igraph.Arrows <-
   {
     cin <- size * par("cin")[2]
     width <- width * (1.2 / 4 / cin)
-    uin <- if (is.R()) {
-      1 / xyinch()
-    } else {
-      par("uin")
-    }
+    uin <- 1 / xyinch()
     x <- sqrt(seq(0, cin^2, length.out = floor(35 * cin) + 2))
     delta <- sqrt(h.lwd) * par("cin")[2] * 0.005 ## has been 0.05
     x.arr <- c(-rev(x), -x)