From 1f6a65b9bb155bed946d1d5d027f999a598cfb4d Mon Sep 17 00:00:00 2001
From: Silvio <s.waschina@nutrinf.uni-kiel.de>
Date: Tue, 11 Jun 2024 22:02:45 +0200
Subject: [PATCH] Fix #1

---
 R/io.R | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/R/io.R b/R/io.R
index c70591a..e1965cd 100644
--- a/R/io.R
+++ b/R/io.R
@@ -161,7 +161,7 @@ sboterm2int <- function(sbo) {
 writeSBMLmod <- function(model, file_path = NULL) {
 
   compress <- FALSE
-  if(grepl("\\.gz$",file_path)) {
+  if(!is.null(file_path) && grepl("\\.gz$",file_path)) {
     compress <- TRUE
     out_file <- file_path
     file_path <- gsub("\\.gz$","", file_path)
@@ -194,6 +194,9 @@ writeSBMLmod <- function(model, file_path = NULL) {
     model@genes_attr$CVTerms <- ifelse(is.na(model@genes_attr$CVTerms),
                                        "",model@genes_attr$CVTerms)
 
+  if(is.na(model@mod_desc))
+    model@mod_desc <- ""
+
   # Stoichiometry lists
   lReaMets <- apply(model@S, 2, FUN = function(x) model@met_id[which(abs(x)>0)])
   lReaStoich <- apply(model@S, 2, FUN = function(x) x[which(abs(x)>0)])
@@ -217,7 +220,7 @@ writeSBMLmod <- function(model, file_path = NULL) {
   bndgrp_para <- bndgrp_para[order(bndgrp_para$bnd),]
 
   # gpr string for libSBML
-  gpr <- c()
+  gpr <- character(0L)
   if(react_num(model)>0) {
     for(i in 1:length(model@react_id)) {
       x <- model@gprRules[[i]]
@@ -236,7 +239,7 @@ writeSBMLmod <- function(model, file_path = NULL) {
     gpr <- gsub("\\&", "and", gpr)
     gpr <- gsub("\\|", "or", gpr)
   }
-  #print(gpr)
+  print(gpr)
 
   # Let's export
   out <- writeSBML(