gingeR: gingeR

library(gingeR)

senorge2 <-gingeR(name = "senorge2",format_file="netcdf",auth_type = "none",endpoint = NULL)

# authentication: nothing required here
senorge2$authenticate()

# daily temperature on 2017-03-24
senorge2$GET("http://thredds.met.no/thredds/fileServer/metusers/senorge2/seNorge2/provisional_archive/TEMP1d/gridded_dataset/201703/seNorge_v2_0_TEMP1d_grid_20170324.nc")

# information about handle, header response,...
senorge2$info()
senorge2$status_code()

# information about the values
senorge2$summary()
senorge2$summary(varid="mean_temperature")


# values
senorge2$values(varid="mean_temperature")
senorge2$values(varid="mean_temperature","X")
senorge2$values(varid="mean_temperature","Y")
senorge2$values(varid="mean_temperature","time")

# subset
tmp <- senorge2$values(varid="mean_temperature",offset=list(i=500,j=500,k=1),count=list(i=200,j=200,k=1))

# structure
str(tmp)
image(tmp$vals)


#
library(gingeR)
senorge2 <-gingeR(name = "senorge2",format_file="netcdf",auth_type = "none",endpoint = NULL)
senorge2$authenticate()

# daily temperature on 2017-03-25
senorge2$GET("http://thredds.met.no/thredds/fileServer/metusers/senorge2/seNorge2/provisional_archive/TEMP1d/gridded_dataset/201703/seNorge_v2_0_TEMP1d_grid_20170325.nc")
# daily temperature on 2017-03-26
senorge2$GET("http://thredds.met.no/thredds/fileServer/metusers/senorge2/seNorge2/provisional_archive/TEMP1d/gridded_dataset/201703/seNorge_v2_0_TEMP1d_grid_20170326.nc")
# daily temperature on 2017-03-27
senorge2$GET("http://thredds.met.no/thredds/fileServer/metusers/senorge2/seNorge2/provisional_archive/TEMP1d/gridded_dataset/201703/seNorge_v2_0_TEMP1d_grid_20170327.nc")
# daily temperature on 2017-03-28
senorge2$GET("http://thredds.met.no/thredds/fileServer/metusers/senorge2/seNorge2/provisional_archive/TEMP1d/gridded_dataset/201703/seNorge_v2_0_TEMP1d_grid_20170328.nc")