From 8eeff26b8393be2046001d367917ad742c0d6447 Mon Sep 17 00:00:00 2001 From: florianh Date: Fri, 4 Oct 2019 13:20:01 +0200 Subject: [PATCH] bugfix write.reportProject --- DESCRIPTION | 6 +++--- R/write.reportProject.R | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 6b6784d5..09967d08 100644 --- a/DESCRIPTION +++ b/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 diff --git a/R/write.reportProject.R b/R/write.reportProject.R index c51f7ef0..a081cb53 100644 --- a/R/write.reportProject.R +++ b/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) }