Discussion :

[mga_geo]

Bonsoir à tous,

La conversion échoue si l'une des variables est une liste vide.
Je ne sais pas comment contourner le problème, une idée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
library(tidyverse)
fj <- jsonlite::fromJSON(('{"ville" : "Rennes", "habitat": {}}'), flatten = TRUE, simplifyDataFrame = FALSE)
df <- as.data.frame(fj) %>%
  glimpse()

Marc

[mga_geo]

La nuit a porté conseil, mais la solution est partielle, il manque la récursivité sur la liste

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
library(tidyverse)
library(jsonlite)
fj <- jsonlite::fromJSON(('{"version": "0", "habitat": {}}'), flatten = TRUE, simplifyDataFrame = FALSE)
fj <- jsonlite::fromJSON(('{"version": "0", "protocol": {"habitat": {}}}'), flatten = TRUE, simplifyDataFrame = FALSE)
fj2 <- Filter(Negate(purrr::is_empty), fj)
# https://purrr.tidyverse.org/reference/keep.html
fj2 <- fj %>%
  compact()
df2 <- as.data.frame(fj2) %>%
  glimpse()