From 594d35837001f92dec9bda0e873ba6b7286162a0 Mon Sep 17 00:00:00 2001
From: Ranke Johannes <johannes.ranke@agroscope.admin.ch>
Date: Thu, 5 Mar 2026 11:01:43 +0100
Subject: Improve pai print method, remove Travis config

It seems that Travis does not show open source projects on github
any more, as it used to, so finally I am removing the Travis
configuration in this project.
---
 R/chent.R | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

(limited to 'R')

diff --git a/R/chent.R b/R/chent.R
index 941c445..a159ece 100644
--- a/R/chent.R
+++ b/R/chent.R
@@ -651,18 +651,11 @@ plot.chent = function(x, ...) {
 #' @export
 #' @format An [R6::R6Class] generator object
 #' @examples
-#' # On Travis, we get a certificate validation error,
-#' # likely because the system (xenial) is so old,
-#' # therefore don't run this example on Travis
-#' if (Sys.getenv("TRAVIS") == "") {
-#'
 #' atr <- pai$new("atrazine")
 #' print(atr)
 #' if (!is.null(atr$Picture)) {
 #'   plot(atr)
 #' }
-#'
-#' }
 pai <- R6Class("pai",
   inherit = chent,
   public = list(
@@ -755,7 +748,11 @@ pai <- R6Class("pai",
 #' @param ... Further arguments for compatibility with the S3 method
 #' @export
 print.pai = function(x, ...) {
-  cat("<pai> with ISO common name $iso", x$iso, "\n")
+  if (is.null(x$iso)) {
+    cat("<pai> without ISO common name\n")
+  } else {
+    cat("<pai> with ISO common name $iso", x$iso, "\n")
+  }
   print.chent(x)
   if (length(x$TPs) > 0) {
     cat("\nTransformation products:\n")
-- 
cgit v1.2.3