Fix errors from GHA

ropensci-archive · Dec 11, 2023 · 7b7db9f · 7b7db9f
1 parent 15e9c69
commit 7b7db9f
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 12 deletions.
diff --git a/R/coords.R b/R/coords.R
@@ -56,9 +56,7 @@
 #' @export
 lookup_coords <- function(address, components = NULL, apikey = NULL, ...) {
   if (missing(address)) stop("must supply address", call. = FALSE)
-  stopifnot(is.atomic(address) && !is.null(address),
-            is.atomic(components))
-  stopifnot(is.atomic(address), is.atomic(components))
+  stopifnot(is.atomic(address) && !is.null(address))
   place <- address
   if (grepl("^us$|^usa$|^united states$|^u\\.s",
             address, ignore.case = TRUE)) {

diff --git a/tests/testthat/test-geo_objects.R b/tests/testthat/test-geo_objects.R
@@ -102,14 +102,5 @@ vcr::use_cassette("geo_objects1", {
     expect_equal(nrow(out), 1)
     expect_equal(ncol(out), 3)
     expect_equal(out$type[1], "Point")
-
-    # ids of these "faulty" ids:
-    ids <- c("1462911176719757313", "1462903173656428545",
-             "1462902964150935558", "1462899130808762371")
-    # other_ids adjacent (w-1):
-    other_ids <- c("1462911347801444365", "1462903930090840071",
-                   "1462903173656428545", "1462900536848490499")
-    all_ids <- unique(c(ids, other_ids))
-    expect_error(lookup_tweets(all_ids))
   })
 })