[R-br] Ler arquivo JSON com diversos outros JSONs dentro dele

25 Jun 2018

      Boa tarde colegas listeiros, como vão?

Ultimamente venho encontrando certa dificuldade para trabalhar com arquivos
JSON que contém outros JSON dentro deles.
Sempre que precisei trabalhar com esse tipo de arquivo utilizei a expressão:

library(jsonlite)
raiz= ('C:\\Users\\Desktop\\')
a = fromJSON(paste0(raiz,'document.json'))

Dessa forma eu obtenho uma lista e consigo selecionar os valores dos campos
que quero.
Mas quando tento aplicar a mesma lógica para um JSON que contém diversos
outros JSONs, o código quebra e retorna:
Error in parse_con(txt, bigint_as_char) : parse error: trailing garbage
          99809265137         }       },       {         "_index": "ch
                     (right here) ------^

Meu interesse é acessar apenas as informações de alguns campos desses JSONs
e construir uma tabela, onde nas colunas eu terei os campos que desejo e
nas linhas eu terei os valores de cada um dos JSONs.
A seguir, estou colando no corpo da mensagem um pedaço de um desses
arquivos que estou tentando lidar no R.

Desde já, agradeço pela ajuda e atenção.

Att

{
        "_index": "busca",
        "_type": "data_point",
        "_id": "interpolation:699646|mgper-0-20|2018-06-22|5x21sxq1km3b",
        "_score": 1,
        "_source": {
          "name": "Mg% 0-20",
          "data_type": "interpolation",
          "attribute": "Mg%",
          "farm_id": 22706,
          "depth": "0-20",
          "location": [
            -48.91500982855756,
            -22.293821593345108
          ],
          "inceres_id": 699646,
          "date_created": "2018-06-22T14:06:13.587631-03:00",
          "slug": "mgper-0-20",
          "quantity": 10.565964698791504
        }
      },
      {
        "_index": "busca",
        "_type": "data_point",
        "_id": "interpolation:701809|ph-20-40|2018-06-22|5x21uc94cc55",
        "_score": 1,
        "_source": {
          "name": "ph 20-40",
          "data_type": "interpolation",
          "attribute": "ph",
          "farm_id": 22706,
          "depth": "20-40",
          "location": [
            -48.90241501215151,
            -22.28980716917012
          ],
          "inceres_id": 701809,
          "date_created": "2018-06-22T14:06:35.183784-03:00",
          "slug": "ph-20-40",
          "quantity": 4.381259918212891
        }
      },
      {
        "_index": "busca",
        "_type": "data_point",
        "_id": "interpolation:699646|mgper-0-20|2018-06-22|5x21sz1rcjp5",
        "_score": 1,
        "_source": {
          "name": "Mg% 0-20",
          "data_type": "interpolation",
          "attribute": "Mg%",
          "farm_id": 22706,
          "depth": "0-20",
          "location": [
            -48.915268161911925,
            -22.289490533842073
          ],
          "inceres_id": 699646,
          "date_created": "2018-06-22T14:06:13.587631-03:00",
          "slug": "mgper-0-20",
          "quantity": 8.669662475585938
        }
      },
      {
        "_index": "busca",
        "_type": "data_point",
        "_id": "interpolation:701809|ph-20-40|2018-06-22|5x21uc3097d7",
        "_score": 1,
        "_source": {
          "name": "ph 20-40",
          "data_type": "interpolation",
          "attribute": "ph",
          "farm_id": 22706,
          "depth": "20-40",
          "location": [
            -48.904161243141765,
            -22.289829735373146
          ],
          "inceres_id": 701809,
          "date_created": "2018-06-22T14:06:35.183784-03:00",
          "slug": "ph-20-40",
          "quantity": 4.352087497711182
        }
      }

Yury Duarte
Engenheiro Agrônomo - ESALQ/USP