Incorrect flattening when the data contains some column named $

[yutannihilation]

estat_getStatsList(appId, searchWord = "人口推計")
#> Source: local data frame [431 x 11]
#> 
#>           @id @code     $                      STATISTICS_NAME   @no CYCLE SURVEY_DATE  OPEN_DATE SMALL_AREA OVERALL_TOTAL_NUMBER UPDATED_DATE
#>         (chr) (chr) (chr)                                (chr) (chr) (chr)       (chr)      (chr)      (chr)                (chr)        (chr)
#> 1  0003046396    01  人口 人口推計 平成23年10月1日現在人口推計   001     -      201110 2012-04-17          0                  816   2012-04-17
#> 2  0003046397    01  人口 人口推計 平成23年10月1日現在人口推計   002     -      201110 2012-04-17          0                 1794   2012-04-17
#> 3  0003046398    01  人口 人口推計 平成23年10月1日現在人口推計   003     -      201110 2012-04-17          0                  810   2012-04-17
#> 4  0003046399    01  人口 人口推計 平成23年10月1日現在人口推計   004     -      201110 2012-04-17          0                  384   2012-04-17
#> 5  0003046400    01  人口 人口推計 平成23年10月1日現在人口推計   005     -      201110 2012-04-17          0                 1440   2012-04-17
#> 6  0003046401    01  人口 人口推計 平成23年10月1日現在人口推計   006     -      201110 2012-04-17          0                  240   2012-04-17
#> 7  0003046402    01  人口 人口推計 平成23年10月1日現在人口推計   007     -      201110 2012-04-17          0                  240   2012-04-17
#> 8  0003046403    01  人口 人口推計 平成23年10月1日現在人口推計   008     -      201110 2012-04-17          0                  240   2012-04-17
#> 9  0003046404    01  人口 人口推計 平成23年10月1日現在人口推計   009     -      201110 2012-04-17          0                  240   2012-04-17
#> 10 0003046405    01  人口 人口推計 平成23年10月1日現在人口推計   010     -      201110 2012-04-17          0                 2736   2012-04-17
#> ..        ...   ...   ...                                  ...   ...   ...         ...        ...        ...                  ...          ...

[yutannihilation]

The original result before flattening was this:

str(result_json$GET_STATS_LIST$DATALIST_INF$TABLE_INF[[1]])
#> List of 13
#>  $ @id                 : chr "0003046396"
#>  $ STAT_NAME           :List of 2
#>   ..$ @code: chr "00200524"
#>   ..$ $    : chr "人口推計"
#>  $ GOV_ORG             :List of 2
#>   ..$ @code: chr "00200"
#>   ..$ $    : chr "総務省"
#>  $ STATISTICS_NAME     : chr "人口推計 平成23年10月1日現在人口推計"
#>  $ TITLE               :List of 2
#>   ..$ @no: chr "001"
#>   ..$ $  : chr "年齢（各歳），男女別人口及び人口性比－総人口，日本人人口"
#>  $ CYCLE               : chr "-"
#>  $ SURVEY_DATE         : int 201110
#>  $ OPEN_DATE           : chr "2012-04-17"
#>  $ SMALL_AREA          : int 0
#>  $ MAIN_CATEGORY       :List of 2
#>   ..$ @code: chr "02"
#>   ..$ $    : chr "人口・世帯"
#>  $ SUB_CATEGORY        :List of 2
#>   ..$ @code: chr "01"
#>   ..$ $    : chr "人口"
#>  $ OVERALL_TOTAL_NUMBER: int 816
#>  $ UPDATED_DATE        : chr "2012-04-17"

Apparently, we need columns like TITLE$$`` to distinguish the results; It's better to keep them.

[yutannihilation]

Possible solutions:

1) Coalesce to a factor

2) Keep as separate columns

[yutannihilation]

#11 can flatten better.

estat_getStatsList(appId, searchWord = "人口推計")
#> Source: local data frame [431 x 13]
#> 
#>           @id STAT_NAME GOV_ORG                      STATISTICS_NAME                                                    TITLE
#>         <chr>     <chr>   <chr>                                <chr>                                                    <chr>
#> 1  0003046396  人口推計  総務省 人口推計 平成23年10月1日現在人口推計 年齢（各歳），男女別人口及び人口性比－総人口，日本人人口
#> 2  0003046397  人口推計  総務省 人口推計 平成23年10月1日現在人口推計     年齢（５歳階級），男女，月別人口－総人口，日本人人口
#> 3  0003046398  人口推計  総務省 人口推計 平成23年10月1日現在人口推計             年齢（５歳階級），男女別人口及び割合－総人口
#> 4  0003046399  人口推計  総務省 人口推計 平成23年10月1日現在人口推計     都道府県，男女別人口及び人口性比－総人口，日本人人口
#> 5  0003046400  人口推計  総務省 人口推計 平成23年10月1日現在人口推計                 都道府県，男女別人口－総人口，日本人人口
#> 6  0003046401  人口推計  総務省 人口推計 平成23年10月1日現在人口推計                             都道府県別人口の割合－総人口
#> 7  0003046402  人口推計  総務省 人口推計 平成23年10月1日現在人口推計                             都道府県別人口増減率－総人口
#> 8  0003046403  人口推計  総務省 人口推計 平成23年10月1日現在人口推計                             都道府県別自然増減率－総人口
#> 9  0003046404  人口推計  総務省 人口推計 平成23年10月1日現在人口推計                             都道府県別社会増減率－総人口
#> 10 0003046405  人口推計  総務省 人口推計 平成23年10月1日現在人口推計            都道府県，年齢（5歳階級），男女別人口－総人口
#> ..        ...       ...     ...                                  ...                                                      ...
#>    CYCLE SURVEY_DATE  OPEN_DATE SMALL_AREA
#>    <chr>       <chr>      <chr>      <chr>
#> 1      -      201110 2012-04-17          0
#> 2      -      201110 2012-04-17          0
#> 3      -      201110 2012-04-17          0
#> 4      -      201110 2012-04-17          0
#> 5      -      201110 2012-04-17          0
#> 6      -      201110 2012-04-17          0
#> 7      -      201110 2012-04-17          0
#> 8      -      201110 2012-04-17          0
#> 9      -      201110 2012-04-17          0
#> 10     -      201110 2012-04-17          0
#> ..   ...         ...        ...        ...
#> Variables not shown: MAIN_CATEGORY <chr>, SUB_CATEGORY <chr>, OVERALL_TOTAL_NUMBER <chr>, UPDATED_DATE <chr>.