Merge pull request #3 from CorradoLanera/develop

google_maps_reviews

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: outscrapr
 Title: Unofficial Uncompleted Outscraper API
-Version: 0.0.1
+Version: 0.0.2
 Authors@R: 
     person("Corrado", "Lanera", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-0520-7428"))

README.Rmd

@@ -44,11 +44,13 @@ library(outscrapr)
 query <- "restaurants, Brooklyn 11203"
 
 restaurants <- google_maps_search(query = query, limit = 2)
-
-restaurants
+restaurants |> 
+  tibble::as_tibble()
 
 restaurants$working_hours
-restaurants$about
+restaurants$about |> 
+  tibble::as_tibble()
+
 restaurants$about$`Popular for`
 restaurants$reviews_per_score
 ```
@@ -68,9 +70,13 @@ queries <- c(
 # Results' limit refers to the number of places to retrieve for each
 # query. The results of all queries are combined into a single tibble.
 multi_restaurants <- google_maps_search(query = queries, limit = 2)
-multi_restaurants
+multi_restaurants |> 
+  tibble::as_tibble()
+
 multi_restaurants$working_hours
-multi_restaurants$about
+multi_restaurants$about |> 
+  tibble::as_tibble()
+
 multi_restaurants$about$Highlights
 multi_restaurants$reviews_per_score
 ```
@@ -85,16 +91,23 @@ library(outscrapr)
 query <- "restaurants, Brooklyn 11203"
 
 restaurant <- google_maps_search(query = query, limit = 1)
-restaurant
+restaurant |> 
+  tibble::as_tibble()
 
 reviews <- restaurant[["place_id"]] |> 
   google_maps_reviews(reviews_limit = 2)
 
-reviews
+reviews |> 
+  tibble::as_tibble()
+
 identical(reviews$place_id, restaurant$place_id)
 
-reviews$reviews
-reviews$reviews_data
+reviews$reviews |> 
+  tibble::as_tibble()
+
+reviews$reviews_data[[1]] |> 
+  tibble::as_tibble()
+
 reviews$reviews_data[[1]]$review_text
 
 reviews$reviews_data[[1]]$review_questions