tests/testthat/test_weather_vars.R

In AGROFIMS/ragapi: An R-implementation of the Agronomy API standard (AgAPI) used by Agronomy Fieldbook Management System (AGROFIMS) platform

context("test project agronomic Weather Variables Class and Methods")

test_that("Test get weather variables by expsiteId=21", {
  
  test_v0212 <- AgWeatherMea$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                              version ="/0212/r")
  out_test <- test_v0212$ag_get_weather_expsiteId(expsiteDbId= 21, format="data.frame")
  testthat::expect_equal(object = nrow(out_test),expected = 2)
  testthat::expect_equal(object = ncol(out_test),expected = 11)
})


test_that("Test get weather variables by studyId=23", {
  
  test_v0212 <- AgWeatherMea$new(serverURL = "https://research.cip.cgiar.org/agrofims/api/dev",
                              version ="/0212/r")
  out_test <- test_v0212$ag_get_weather_studyId(studyDbId = 23, format="data.frame")
  testthat::expect_equal(object = length(out_test),expected = 3)
  
})