Revomed the dependency with respect to RJSONIO

Author: cjgb

DESCRIPTION

@@ -1,15 +1,15 @@
 Package: pxR
 Type: Package
 Title: PC-Axis with R
-Version: 0.42.7
-Date: 2022-11-20
+Version: 0.42.8
+Date: 2025-03-24
 Encoding: UTF-8
 Authors@R: c(person("Carlos J.", "Gil Bellosta", email="cgb@datanalytics.com", role=c('cre', 'aut')),
              person("Francisco J.",  "Viciana", email= "franciscoj.viciana@juntadeandalucia.es", role='aut'),
              person("Oscar", "Perpinan Lamigueiro", email="oscar.perpinan@upm.es", role='aut'),
              person("Emilio", "Torres Manzanera", email="torres@uniovi.es", role='ctb'))
 Description: Provides a set of functions for reading and writing PC-Axis files, used by different statistical organizations around the globe for data dissemination.
-Depends: stringr, reshape2, RJSONIO, plyr
+Depends: stringr, reshape2, jsonlite, plyr
 URL: https://github.com/cjgb/pxR
 License: GPL-3
 LazyLoad: yes

NAMESPACE

@@ -5,7 +5,7 @@ importFrom("stringr", str_split, str_locate_all, str_sub, str_length)
 importFrom("plyr", mapvalues, ldply)
 importFrom("stats", "formula", "ftable")
 importFrom("utils", "read.table", "str")
-importFrom("RJSONIO", "toJSON")
+importFrom("jsonlite", "write_json")
 
 
 export(read.px)

R/write.json.stat.R

@@ -1,64 +1,56 @@
 #################################################################
-# 
+#
 # File:         write.json.stat.R
 # Purpose:      Write an object of class 'px' a file with json-stat format
 #               See http://json-stat.org/
 #
 # Created:      20130813
 # Authors:      cjgb
 #
-# Modifications: 
+# Modifications:
+#               cjgb, 20250324 - Remove the dependency on RJSONIO
 #
 #################################################################
 
 
-write.json.stat <- function ( obj.px, filename ){
-  
-  if ( ! inherits( obj.px, "px" ) )
-    stop("Error: object needs to have class 'px'" )
-  
-  aa <- as.array(obj.px)
+write.json.stat <- function(obj.px, filename){
+
+    if (! inherits(obj.px, "px"))
+        stop("Error: object needs to have class 'px'")
+
+    aa <- as.array(obj.px)
+    js.dim.id <- names(dimnames(aa))
+    js.dim.size <- sapply(dimnames(aa), length)
+    names(js.dim.size) <- NULL
+
+    js.dim.ids <- lapply(
+        dimnames(aa),
+        function(x) {
+            list(category = list(index = x))
+        }
+    )
+
+    js.value <- as.numeric(aa)
+    js.updated <- as.character(Sys.time())
+    js.source  <- obj.px$SOURCE$value
+    js.label   <- obj.px$TITLE$value
+
+    js <- list(
+        label     = js.label,
+        source    = js.source,
+        updated   = js.updated,
+        value     = js.value,
+        dimension = c(list(id = js.dim.id, size = js.dim.size ), js.dim.ids)
+    )
+
+    js <- list(js)
+    names(js) <- obj.px$MATRIX$value
 
-  js.dim.id <- names(dimnames(aa))
-  
-  js.dim.size <- sapply(dimnames(aa), length)
-  names(js.dim.size) <- NULL
-  
-  js.dim.ids <- lapply( dimnames(aa), 
-                 function(x){
-                   list( category = list( index = x ) )
-                   
-                 }
-  )
-  
-  js.value <- as.numeric(aa)
-  
-  js.updated <- as.character(Sys.time())
-  js.source  <- obj.px$SOURCE$value
-  js.label   <- obj.px$TITLE$value
-  
-  
-  js <- list( label     = js.label,
-              source    = js.source,
-              updated   = js.updated,
-              value     = js.value,
-              dimension = c( list( id   = js.dim.id,
-                                   size = js.dim.size ),
-                             
-                             js.dim.ids 
-                             
-              )
-  )
-  
-  js <- list(js)
-  names(js) <- obj.px$MATRIX$value
-  
-  
-  # encoding must be UTF-8 for json files
-  con <- file( description = filename, open = "w", encoding = "UTF-8" )
-  on.exit( close(con) )
-  
-  cat(toJSON(js), file = con)
-  
-}  
+    write_json(
+               js,
+               path = filename,
+               auto_unbox = TRUE,
+               pretty = TRUE,
+               encoding = "UTF-8")
 
+}