Maintenance scheduled for Thursday, October 22nd at 15:00 MDT. Expected downtime <1 hour.

Commit 9ff8c41b authored by Blodgett, David L.'s avatar Blodgett, David L.

fixes #66

parent 6776a82a
......@@ -197,5 +197,8 @@ read_timeseries_dsg = function(nc_file){
name == "processing_level")$value
nc_list$global_attributes$nc_title <- filter(nc_atts, variable == "NC_GLOBAL" &
name == "title")$value
attr(nc_list, "class") <- "ncdfgeom"
return(nc_list)
}
\ No newline at end of file
......@@ -222,6 +222,7 @@ test_that("Create basic DSG file", {
expect_equivalent(testlist$global_attributes$nc_proc_level,'just a test no processing')
expect_equivalent(testlist$global_attributes$nc_title,'test title')
expect_equivalent(testlist$data_frames[1][[1]],test_data$var_data) # Plan to have the dataframes work for 1 to many variables.
expect_s3_class(testlist, "ncdfgeom")
nc_file_borked <- tempfile()
file.copy(nc_file, nc_file_borked, overwrite = TRUE)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment