bugfix write.reportProject

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: magclass
 Type: Package
 Title: Data Class and Tools for Handling Spatial-Temporal Data
-Version: 5.1.0
-Date: 2019-09-30
+Version: 5.1.1
+Date: 2019-10-04
 Authors@R: c(person("Jan Philipp", "Dietrich", email = "dietrich@pik-potsdam.de", role = c("aut","cre")),
              person("Benjamin Leon", "Bodirsky", email = "bodirsky@pik-potsdam.de", role = "aut"),
              person("Markus", "Bonsch", role = "aut"),
@@ -49,4 +49,4 @@ LazyData: true
 Encoding: UTF-8
 RoxygenNote: 6.1.1
 VignetteBuilder: knitr
-ValidationKey: 9266190
+ValidationKey: 9286403

R/write.reportProject.R

@@ -181,10 +181,10 @@ write.reportProject <- function(mif,mapping,file=NULL,max_file_size=NULL,format=
     write.report2(new_data,file=file,...)
   } else if (format == "IAMC") {
     a <- write.report2(new_data,file=NULL,...)
-    write.csv(a[[1]][[1]],file=file,row.names = FALSE,quote = FALSE)
+    write.csv(a,file=file,row.names = FALSE,quote = FALSE)
   } else if (format == "AgMIP") {
     a <- write.report2(new_data,file=NULL,extracols = "Item")
-    b<-melt(a[[1]][[1]],id.vars = c("Model","Scenario","Region","Variable","Item","Unit"),variable.name = "Year")
+    b<-melt(a,id.vars = c("Model","Scenario","Region","Variable","Item","Unit"),variable.name = "Year")
     write.csv(b,file=file,row.names = FALSE,quote = FALSE)
   }