StormR
Analyzing the Behaviour of Wind Generated by Tropical Storms and Cyclones

Package index
Search the StormR package
Vignettes
Functions
106
Source code
22
Man pages
24
Home
/
CRAN
/
StormR
/
tests/testthat/test-stormsDataset.R

tests/testthat/test-stormsDataset.R
In StormR: Analyzing the Behaviour of Wind Generated by Tropical Storms and Cyclones 

test_that("Test conversions functions",{
  
  expect_equal(knt2ms(1), 0.514)
  expect_equal(mph2ms(1), 0.44704)
  expect_equal(kmh2ms(1), 1 / 3.6)
  expect_equal(nm2km(1), 1.852)
  expect_equal(b2pa(1), 100000)
  expect_equal(mb2pa(1), 100)
  expect_equal(psi2pa(1), 6895)
  expect_equal(atm2pa(1), 101300)
  
})



test_that("Test checkInputsdefStormsDataset function", {
  # Checking filename input
  expect_error(
    checkInputsdefStormsDataset(
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = 1,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = TRUE,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = c("data", ".nc"),
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  # Checking fields input
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = 1,
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = TRUE,
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb_to_pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb_to_pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(msw = "knt2ms",
                         rmw = "nm2km",
                         poci = "mb2pa"),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = TRUE,
      seasons = c(1980, as.numeric(format(Sys.time(), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      verbose = TRUE
    )
  )
  
  # Checking basin input
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = 1,
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = TRUE,
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = c("NA", "WP"),
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "basin",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  # Checking seasons
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = 2000,
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(2020, 2000),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c("2000", "2020"),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = TRUE,
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  
  # Checking unitConversion input
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = 1,
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = TRUE,
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  

  # Checking verbose input
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "sshs" = "usa_sshs",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = -1
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "sshs" = "usa_sshs",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = "1"
    )
  )
  
  expect_error(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = TRUE
    )
  )
  

  # Check Warnings
  expect_warning(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "pressure" = "usa_pres",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  
  expect_warning(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "poci" = "usa_poci"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
  
  expect_warning(
    checkInputsdefStormsDataset(
      filename = "database.nc",
      sep = NULL,
      fields = c(
        "basin" = "basin",
        "names" = "name",
        "seasons" = "season",
        "isoTime" = "iso_time",
        "lon" = "usa_lon",
        "lat" = "usa_lat",
        "msw" = "usa_wind",
        "rmw" = "usa_rmw",
        "pressure" = "usa_pres"
      ),
      basin = "SP",
      seasons = c(1980, as.numeric(format(Sys.time(
        
      ), "%Y"))),
      unitConversion = c(
        msw = "knt2ms",
        rmw = "nm2km",
        pressure = "mb2pa",
        poci = "mb2pa"
      ),
      notNamed = "NOT_NAMED",
      verbose = 1
    )
  )
})


test_that("Test getDataFrom functions", {
  
  fields = c(
    names = "name",
    seasons = "season",
    isoTime = "iso_time",
    lon = "usa_lon",
    lat = "usa_lat",
    msw = "usa_wind",
    basin = "basin",
    sshs = "usa_sshs",
    rmw = "usa_rmw",
    pressure = "usa_pres",
    poci = "usa_poci"
  )
 
  unitConversion = c(
    msw = "knt2ms",
    rmw = "nm2km",
    pressure = "mb2pa",
    poci = "mb2pa"
  )
  
  filename = system.file("extdata", "test_dataset.csv", package = "StormR")
  databaseFromCsv <- getDataFromCsvFile(filename=filename,
                                        sep = ",",
                                        fields=fields,
                                        basin=NULL,
                                        seasons=c(2015,2020),
                                        unitConversion=unitConversion,
                                        notNamed="NOT_NAMED",
                                        verbose=0)
  
  filename = system.file("extdata", "test_dataset.nc", package = "StormR")
  databaseFromNc <- getDataFromNcdfFile(filename=filename,
                                        fields=fields,
                                        basin=NULL,
                                        seasons=c(2015,2020),
                                        unitConversion=unitConversion,
                                        notNamed="NOT_NAMED",
                                        verbose=0)
  
  expect_equal(convertVariables(databaseFromCsv, unitConversion), sdsFromCsv@database)
  expect_equal(convertVariables(databaseFromNc, unitConversion), sdsFromNc@database)
  
})

Try the StormR package in your browser

Any scripts or data that you put into this service are public.

StormR documentation built on Sept. 12, 2024, 6:52 a.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close