2

Tenho a lista que segue abaixo. Gostaria de transformá-la num data.frame (ou tibble):

dados.lista <- list(id = 2287276L, uri = "https://dadosabertos.camara.leg.br/api/v2/proposicoes/2287276", 
    siglaTipo = "SBT", codTipo = 255L, numero = 1L, ano = 0L, 
    ementa = "", dataApresentacao = "2021-06-16T17:24", uriOrgaoNumerador = NULL, 
    statusProposicao = list(dataHora = "2021-06-16T17:24", sequencia = 1L, 
        siglaOrgao = "PLEN", uriOrgao = "https://dadosabertos.camara.leg.br/api/v2/orgaos/180", 
        uriUltimoRelator = NULL, regime = ".", descricaoTramitacao = "Apresentação de Proposição", 
        codTipoTramitacao = "100", descricaoSituacao = NULL, 
        codSituacao = NULL, despacho = "Apresentação do Substitutivo n. 1 PLEN, pelo Deputado Carlos Zarattini (PT-SP).", 
        url = "http://www.camara.gov.br/proposicoesWeb/prop_mostrarintegra?codteor=2029277", 
        ambito = "Regimental"), uriAutores = "https://dadosabertos.camara.leg.br/api/v2/proposicoes/2287276/autores", 
    descricaoTipo = "Substitutivo", ementaDetalhada = NULL, keywords = NULL, 
    uriPropPrincipal = NULL, uriPropAnterior = NULL, uriPropPosterior = NULL, 
    urlInteiroTeor = "http://www.camara.gov.br/proposicoesWeb/prop_mostrarintegra?codteor=2029277", 
    urnFinal = NULL, texto = NULL, justificativa = NULL)

Tentei o seguinte código, sem sucesso:

library(tidyverse)
dados.lista %>% 
  map(unlist) %>% 
  as_tibble()

Alguém poderia me indicar uma saída. Grato.

1 Resposta 1

3

Em primeiro lugar, é preciso transformar os elementos nulos (NULL) dessa lista.

df_1 <- lapply(dados.lista, Filter, f = Negate(is.null))

Feito isso, agrege as variáveis com rbind.fill. Assim:

library(plyr)

df_2 <- rbind.fill(lapply(df_1, as.data.frame))
1
  • perfeito, Neves, muito obrigado.
    – r_rabbit
    17/06/2021 às 12:52

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .