Running examples in ‘tidyjson-Ex.R’ failed
The error most likely occurred in:

> ### Name: companies
> ### Title: Startup company information for 1,000 companies
> ### Aliases: companies
> 
> ### ** Examples
> 
> 
> library(dplyr)

Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

> 
> # Companies is a long character vector
> companies %>% str
 chr [1:1000] "{ \"_id\" : { \"$oid\" : \"52cdef7e4bab8bd67529bd0c\" }, \"name\" : \"OutSmart Power Systems\", \"permalink\" :"| __truncated__ ...
> 
> # Work with a small sample
> co_samp <- companies[1:5]
> 
> # Gather top level values and glimpse
> co_samp %>% spread_all %>% glimpse
Rows: 5
Columns: 31
$ document.id         <int> 1, 2, 3, 4, 5
$ name                <chr> "OutSmart Power Systems", "Joomla", "Firewall Scr…
$ permalink           <chr> "outsmart-power-systems", "joomla", "firewall-scr…
$ crunchbase_url      <chr> "http://www.crunchbase.com/company/outsmart-power…
$ homepage_url        <chr> "http://www.outsmartinc.com", "http://www.joomla.…
$ blog_url            <chr> "", "http://www.joomla.org/announcements.html", "…
$ blog_feed_url       <chr> "", "http://www.joomla.org/announcements.feed?typ…
$ twitter_username    <chr> "", "joomla", NA, "displax", ""
$ category_code       <chr> "hardware", "software", "software", "software", "…
$ number_of_employees <dbl> NA, NA, 5, 45, NA
$ founded_year        <dbl> 2008, 2005, NA, 2004, 2006
$ founded_month       <dbl> NA, NA, NA, 1, NA
$ founded_day         <lgl> NA, NA, NA, NA, NA
$ deadpooled_year     <lgl> NA, NA, NA, NA, NA
$ deadpooled_month    <lgl> NA, NA, NA, NA, NA
$ deadpooled_day      <lgl> NA, NA, NA, NA, NA
$ deadpooled_url      <lgl> NA, NA, NA, NA, NA
$ tag_list            <chr> "", "content-management, content-management-syste…
$ alias_list          <chr> "", "", NA, NA, ""
$ email_address       <chr> "osinfo@outsmartinc.com", "", "", "displax@displa…
$ phone_number        <chr> "508.650.0055", "", "", "00351 253265506", "734.2…
$ description         <chr> "Building, equipment, network management", "Conte…
$ created_at          <chr> "Sun May 31 07:40:46 UTC 2009", "Wed Jun 24 17:39…
$ updated_at          <chr> "Tue Dec 10 11:06:26 UTC 2013", "Sun Mar 31 08:31…
$ overview            <chr> "<p>OutSmart is developing a network, consisting …
$ total_money_raised  <chr> "$9.91M", "$0", "$0", "$0", "$41M"
$ acquisition         <lgl> NA, NA, NA, NA, NA
$ ipo                 <lgl> NA, NA, NA, NA, NA
$ `_id.$oid`          <chr> "52cdef7e4bab8bd67529bd0c", "52cdef7f4bab8bd67529…
$ image.attribution   <lgl> NA, NA, NA, NA, NA
$ ..JSON              <list> [[["52cdef7e4bab8bd67529bd0c"], "OutSmart Power …
> 
> # Get the key employees data for the first 100 companies
> key_employees <- companies[1:100] %>%
+   spread_all %>%
+   select(name) %>%
+   enter_object(relationships) %>%
+   gather_array() %>%
+   spread_all
> 
> key_employees %>% glimpse
Rows: 527
Columns: 8
$ name              <chr> "OutSmart Power Systems", "Firewall Script", "Firew…
$ array.index       <int> 1, 1, 2, 3, 1, 2, 1, 2, 3, 4, 5, 1, 1, 2, 3, 1, 1, …
$ is_past           <lgl> FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FAL…
$ title             <chr> "Board Observer", "", "", "Founder", "CEO", "CBO", …
$ person.first_name <chr> "Jeffrey", "Ron", "Brandon", "Daniel", "Miguel", "M…
$ person.last_name  <chr> "Weiss", "Myers", "Farber", "Blake Saltman", "Olive…
$ person.permalink  <chr> "jeffrey-weiss", "ron-myers", "brandon-farber", "da…
$ ..JSON            <list> [[FALSE, "Board Observer", ["Jeffrey", "Weiss", "j…
> 
> # Show the top 10 titles
> key_employees %>%
+   filter(!is_past) %>%
+   count(title) %>%
+   arrange(desc(n)) %>%
+   top_n(10)
Error: json.list is not a list or json.list is not an atomic vector without attributes
Execution halted