Merge branch 'develop' of https://github.com/TanguyBarthelemy/rjdemetra3

 into develop

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rjdemetra3
 Type: Package
 Title: Interface to 'JDemetra+ 3.0' Seasonal Adjustment Software
-Version: 3.2.2
+Version: 3.2.3
 Authors@R: c(
   person("Alain", "Quartier-la-Tente", role = c("aut", "cre"),
                  email = "[email protected]",

NAMESPACE

@@ -41,8 +41,12 @@ export(get_priority)
 export(get_raw_data)
 export(get_ts)
 export(put_ts_metadata)
+export(read_calendars)
 export(read_sap)
+export(read_variables)
 export(read_workspace)
+export(regarima_read_spec)
+export(regarima_write_spec)
 export(remove_all_sa_item)
 export(remove_sa_item)
 export(replace_sa_item)
@@ -56,7 +60,15 @@ export(set_raw_data)
 export(set_specification)
 export(set_ts)
 export(set_ts_metadata)
+export(tramo_read_spec)
+export(tramo_write_spec)
+export(tramoseats_read_spec)
+export(tramoseats_write_spec)
 export(transfer_series)
+export(write_calendars)
+export(write_variables)
+export(x13_read_spec)
+export(x13_write_spec)
 import(rjd3providers)
 import(rjd3tramoseats)
 import(rjd3x13)

R/utils.R

@@ -1,3 +1,183 @@
 #' @importFrom rJava .jpackage .jcall .jnull .jarray .jevalArray .jcast .jcastToArray .jinstanceof is.jnull .jnew .jclass
 #' @import rjd3x13 rjd3tramoseats rjd3providers
 NULL
+
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+tramo_read_spec<-function(file){
+  jspec<-.jcall("jdplus/tramoseats/base/workspace/Utility", "Ljdplus/tramoseats/base/api/tramo/TramoSpec;",
+                "readTramoSpec", as.character((file)))
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3tramoseats::.jd2r_spec_tramo(jspec))
+}
+
+#' Title
+#'
+#' @param spec
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+tramo_write_spec<-function(spec, file){
+  .jcall("jdplus/tramoseats/base/workspace/Utility", "V", "writeTramoSpec",
+         rjd3tramoseats::.r2jd_spec_tramo(spec),
+         as.character((file)))
+}
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+tramoseats_read_spec<-function(file){
+  jspec<-.jcall("jdplus/tramoseats/base/workspace/Utility", "Ljdplus/tramoseats/base/api/tramoseats/TramoSeatsSpec;",
+                "readTramoSeatsSpec", as.character(file))
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3tramoseats::.jd2r_spec_tramoseats(jspec))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+tramoseats_write_spec<-function(spec, file){
+  .jcall("jdplus/tramoseats/base/workspace/Utility", "V", "writeTramoSeatsSpec",
+         rjd3tramoseats::.r2jd_spec_tramoseats(spec),
+        as.character(file))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+regarima_read_spec<-function(file){
+  jspec<-.jcall("jdplus/x13/base/workspace/Utility", "Ljdplus/x13/base/api/regarima/RegArimaSpec;",
+                "readRegArimaSpec", as.character((file)))
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3x13::.jd2r_spec_regarima(jspec))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+regarima_write_spec<-function(spec, file){
+  .jcall("jdplus/x13/base/workspace/Utility", "V", "writeRegArimaSpec",
+         rjd3x13::.r2jd_spec_regarima(spec),
+         as.character(file))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+x13_read_spec<-function(file){
+  jspec<-.jcall("jdplus/x13/base/workspace/Utility", "Ljdplus/x13/base/api/x13/X13Spec;", "readX13Spec", file)
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3x13::.jd2r_spec_x13(jspec))
+}
+
+#' Title
+#'
+#' @param spec
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+x13_write_spec<-function(spec, file){
+  .jcall("jdplus/x13/base/workspace/Utility", "V", "writeX13Spec",
+         rjd3x13::.r2jd_spec_x13(spec),
+         as.character(file))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+read_calendars<-function(file){
+  jspec<-.jcall("jdplus/toolkit/base/workspace/file/Utility", "Ljdplus/toolkit/base/api/timeseries/calendars/CalendarManager;", "readCalendars", file)
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3toolkit::.jd2r_calendars(jspec))
+}
+
+#' Title
+#'
+#' @param calendars
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+write_calendars<-function(calendars, file){
+  jcal<-rjd3toolkit::.r2jd_calendars(calendars)
+  .jcall("jdplus/toolkit/base/workspace/file/Utility", "V",
+                 "writeCalendars",
+                 jcal,
+                 as.character(file))
+}
+
+#' Title
+#'
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+read_variables<-function(file){
+  jspec<-.jcall("jdplus/toolkit/base/workspace/file/Utility", "Ljdplus/toolkit/base/api/timeseries/regression/TsDataSuppliers;", "readData", file)
+  if (is.jnull(jspec)) return (NULL)
+  return (rjd3toolkit::.jd2r_variables(jspec))
+}
+
+#' Title
+#'
+#' @param vars
+#' @param file
+#'
+#' @return
+#' @export
+#'
+#' @examples
+write_variables<-function(vars, file){
+  jvars<-rjd3toolkit::.r2jd_variables(vars)
+  .jcall("jdplus/toolkit/base/workspace/file/Utility", "V",
+         "writeData",
+         jvars,
+         as.character(file))
+}
+