Comment puis-je convertir Json de bloc de données dans la R

Je voudrais convertir mes données json à la trame de données dans R. Voici ce que j'ai fait jusqu'à présent:

library("rjson")
result <- fromJSON(file ="mypath/data.json")
json_data_frame <- as.data.frame(result)

Cependant, il s'agit d'une erreur comme ceci:

Une erreur dans les données.cadre(company_id = "12345678", country_name = "Chine",
: arguments impliquent différents nombre de lignes: 1, 2, 0

J'ai aussi essayé le code suivant:

library("rjson")
result <- fromJSON(file ="mypath/data.json")
final_data <- do.call(rbind, result)

Et cette erreur apparaît:

Message d'avertissement: En (fonction (..., deparse.niveau = 1) : nombre de
les colonnes de résultat n'est pas un multiple de la longueur du vecteur (arg 3)

Je ne sais pas ce qui se passe ici et comment puis-je le résoudre. Je vais apprécier si je pouvais obtenir de l'aide sur ce.

Voici quelques morceaux de mes données json:

{"business_id": "1234567", "Country_name": "Chine", "heures": {"lundi": {"close": "02:00", "ouvert": "11:00"}, "mardi": {"close": "02:00", "ouvert": "11:00"}, "vendredi": {"close": "02:00", "ouvert": "11:00"}, "Mercredi": {"close": "02:00", "ouvert": "11:00"}, "jeudi": {"close": "02:00", "ouvert": "11:00"}, "dimanche": {"close": "02:00", "ouvert": "12:00"}, "samedi": {"close": "02:00", "ouvert": "12:00"}}, "ouvrir": true, "categories": ["Bars", "Nocturne", "Restaurants"], "city": "Beijing", "review_count": 5, "nom": "Chen Bar", "quartiers": ["West End"], "attributes": {"take-out": true, "Wi-Fi": "gratuit", "Bon Pour": {"dessert": false, "latenight": false, "déjeuner": false, "le dîner": false, "petit déjeuner": false, "brunch": false}, "Bon Pour la Danse": false, "Niveau de Bruit": "grand", "Prend les Réservations": false, "Livraison": false, "l'Ambiance": {"romantique": false, "intime": false, "classe": false, "hipster": false, "divey": false, "touristique": false, "tendance": false, "haut de gamme": false, "casual": false}, "Happy Hour": true, "Parking": {"garage": false, "street": false, "validé": false, "beaucoup": false, "valet": false}, "A PLAT": true, "terrasse": false, "Vêtement": "décontracté", "Alcool": "full_bar", "Service à table": vrai, "Accepte les Cartes de Crédit": true, "Bon pour les Enfants": false, "Bon Pour les Groupes": true, "Dessert": true, "Gamme de Prix": 1}, "type": "business"}