tests/testthat/testGeoSearch.R

library(GEOexplorer)

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