Error in `get_yelp_api_key()`: YELP_API_KEY is not set. Please add it to your .Renviron file.

test_that("best_cuisine_in_area() returns valid data", {
df <- best_cuisine_in_area(location = "Vancouver, BC", limit = 10)
expect_true(all(c("categories", "avg_rating", "restaurant_count") %in% colnames(df)))

test_that("get_restaurant_details() returns valid details", {
df <- get_restaurant_details(query = "Miku", location = "Vancouver, BC")

test_that("plot_best_restaurants() produces a ggplot object", {
df <- search_restaurants(location = "Vancouver, BC", term = "Sushi", limit = 10)
plot <- plot_best_restaurants(df, top_n = 5)
test_that("plot_best_restaurants() handles empty data gracefully", {

"plot_best_restaurants() produces a ggplot object"
"plot_best_restaurants() handles empty data gracefully"

plot_best_restaurants() produces a ggplot object

test_that("search_restaurants() returns valid results", {
df <- search_restaurants(location = "Vancouver, BC", term = "Sushi", limit = 5)