Commit: 86376ef1ac7bd26fca38a09f5a43a387cf539066 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisão: 86376ef1ac7bd26fca38a09f5a43a387cf539066 (tree)
• Hora: 2025-01-18 08:33:39
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Mensagem de Log

A script with some recursive functions to change a generic nested json file into a tibble.

Mudança Sumário

• add: R-codes/flatten_json.R

Diff

diff -r c0d3226a362d -r 86376ef1ac7b R-codes/flatten_json.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/flatten_json.R	Sat Jan 18 00:33:39 2025 +0100
@@ -0,0 +1,57 @@
+library(jsonlite)
+library(tibble)
+
+# Flatten JSON function (from earlier)
+flatten_json <- function(data, parent_key = "", sep = ".") {
+  result <- list()
+  
+  if (is.list(data)) {
+    for (key in names(data)) {
+      new_key <- if (parent_key == "") key else paste0(parent_key, sep, key)
+      result <- c(result, flatten_json(data[[key]], new_key, sep))
+    }
+  } else if (is.atomic(data) && length(data) > 1) {
+    for (index in seq_along(data)) {
+      new_key <- if (parent_key == "") as.character(index - 1) else paste0(parent_key, sep, index - 1)
+      result[[new_key]] <- data[index]
+    }
+  } else {
+    result[[parent_key]] <- data
+  }
+  
+  return(result)
+}
+
+# Function to convert flattened JSON to a tibble
+json_to_tibble <- function(flattened_json) {
+  # Create a tibble with two columns: key and value
+  tibble(
+    key = names(flattened_json),
+    value = unlist(flattened_json, use.names = FALSE)
+  )
+}
+
+# Example Usage
+## json_data <- '{
+##   "a": 1,
+##   "b": {"c": 2, "d": {"e": 3}},
+##   "f": [4, 5, {"g": 6}],
+##   "h": "text"
+## }'
+
+## details <- fromJSON(fname) 
+
+## json_data <- fromJSON("../output/dataset.json")
+
+
+# Parse JSON
+data <- fromJSON("../output/dataset.json", simplifyVector = FALSE)
+
+# Flatten the JSON
+flattened <- flatten_json(data)
+
+# Convert to tibble
+tibble_result <- json_to_tibble(flattened)
+
+# Print the result
+print(tibble_result)