tests/testthat/testGeoSearch.R

library(GEOexplorer)

test_that("GEO search works",
          {
            searchTerm <- "TXT"
            firstResultNumber <- "0"
            lastResultNumber <- "1"
            
            x <- searchGeo(searchTerm, firstResultNumber, lastResultNumber)
          })
guypwhunt/GEO_Explorer documentation built on Oct. 20, 2023, 8:44 p.m.