Nothing
# vim:textwidth=80:expandtab:shiftwidth=4:softtabstop=4
library(oce)
test_that("as.unit", {
expect_equal(as.unit("DBAR"), list(unit=expression(dbar), scale=""))
expect_equal(as.unit("IPTS-68"), list(unit=expression(degree*C), scale="IPTS-68"))
expect_equal(as.unit("ITS-90"), list(unit=expression(degree*C), scale="ITS-90"))
expect_equal(as.unit("PSS-78"), list(unit=expression(), scale="PSS-78"))
expect_equal(as.unit("UMOL/KG"), list(unit=expression(mu*mol/kg), scale=""))
expect_equal(as.unit(), list(unit=expression(), scale=""))
})
if (dir.exists("local_data")) {
test_that("units in a CTD file of type WOCE (style 1)", {
woce <- read.ctd.woce("local_data/ctd/18HU2010014_00003_00001_ct1.csv")
# test units (issue 1194)
expect_equal(woce[["pressureUnit"]], list(unit=expression(dbar), scale=""))
expect_equal(woce[["temperatureUnit"]], list(unit=expression(degree*C), scale="IPTS-68"))
expect_equal(woce[["salinityUnit"]], list(unit=expression(), scale="PSS-78"))
expect_equal(woce[["oxygenUnit"]], list(unit=expression(mu*mol/kg), scale=""))
})}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.