Merge pull request #32 from TanguyBarthelemy/develop

Change T in TRUE and F in FALSE

R/saitem.R

@@ -106,4 +106,3 @@ NULL
   val<-.jcall("jdplus/sa/base/workspace/Utility", "S", "getSingleTsMetaData", jsa, as.character(key))
   return (val)
 }
-

R/saprocessing.R

@@ -265,7 +265,7 @@ transfer_series <- function(jsap_from, jsap_to, selected_series,
     if (length(index_to) > 1) {
       stop("Several series from second SA Processing have the same name : ", serie_name)
     } else if (length(index_to) == 0) {
-      add_sa_item(jsap = jsap_to, name = serie_name, x = .jsa_read(jsa1))
+      add_sa_item(jsap = jsap_to, name = serie_name, x = jsa1)
     } else {
       replace_sa_item(jsap = jsap_to, jsa = jsa1, idx = index_to)
     }

R/workspace.R

@@ -79,8 +79,8 @@ NULL
 #' @export
 .jws_refresh<-function(jws, policy=c("FreeParameters", "Complete", "Outliers_StochasticComponent", "Outliers", "FixedParameters", "FixedAutoRegressiveParameters", "Fixed"), period=0, start=NULL, end=NULL,
                        info=c("All", "Data", "None")){
-  policy=match.arg(policy)
-  info=match.arg(info)
+  policy <- match.arg(policy)
+  info <- match.arg(info)
   jdom<-rjd3toolkit::.jdomain(period, start, end)
   return (.jcall(jws, "V", "refreshAll", policy, jdom, info))
 }
@@ -203,7 +203,7 @@ get_context<-function(jws){
 #' jws<-.jws_load(file)
 #' # We don't compute the workspace
 #' rws<-read_workspace(jws, FALSE)
-read_workspace<-function(jws, compute=T){
+read_workspace<-function(jws, compute=TRUE){
   if (compute) .jws_compute(jws)
   n<-.jws_sap_count(jws)
   jsaps<-lapply(1:n, function(i){read_sap(.jws_sap(jws,i))})

R/zzz.R

@@ -3,11 +3,10 @@ NULL
 
 .onLoad <- function(libname, pkgname) {
 
-  if (! requireNamespace("rjd3tramoseats", quietly = T)) stop("Loading rjd3 libraries failed")
-  if (! requireNamespace("rjd3x13", quietly = T)) stop("Loading rjd3 libraries failed")
-  if (! requireNamespace("rjd3providers", quietly = T)) stop("Loading rjd3 libraries failed")
+  if (! requireNamespace("rjd3tramoseats", quietly = TRUE)) stop("Loading rjd3 libraries failed")
+  if (! requireNamespace("rjd3x13", quietly = TRUE)) stop("Loading rjd3 libraries failed")
+  if (! requireNamespace("rjd3providers", quietly = TRUE)) stop("Loading rjd3 libraries failed")
 
   result <- rJava::.jpackage(pkgname, lib.loc=libname)
   if (!result) stop("Loading java packages failed")
 }
-

RJDemetra3.Rproj

@@ -1,12 +1,12 @@
 Version: 1.0
 
-RestoreWorkspace: Default
-SaveWorkspace: Default
-AlwaysSaveHistory: Default
+RestoreWorkspace: No
+SaveWorkspace: No
+AlwaysSaveHistory: No
 
 EnableCodeIndexing: Yes
 UseSpacesForTab: Yes
-NumSpacesForTab: 2
+NumSpacesForTab: 4
 Encoding: UTF-8
 
 RnwWeave: knitr
@@ -19,5 +19,7 @@ BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
 PackageBuildBinaryArgs: --no-multiarch
-PackageCheckArgs: --no-multiarch
-PackageRoxygenize: rd,collate,namespace
+PackageCheckArgs: --no-multiarch --as-cran
+PackageRoxygenize: rd,collate,namespace,vignette
+
+UseNativePipeOperator: Yes