examples/transfer.data.R

In HARPgroup/hydro-tools: Data processing and accessors for VAHydro

# install_github("HARPGroup/hydro-tools", force=TRUE)
library("hydrotools")
rest_uname <- 'restws_admin'
ds1 <- RomDataSource$new("http://deq2.bse.vt.edu/d.alpha", rest_uname)
ds1$get_token()
hid <- 61565

tsinfo = list(
  featureid=hid, 
  entity_type="dh_feature"
)
# which returns the exact same object as
ts1 <- ds1$get_ts(tsinfo, 'data.frame')
# new school manual without datasource object
#ts1_new_man <- fn_get_timeseries(tsinfo, "http://deq2.bse.vt.edu/d.dh", token)
# new school search manually FROM the datasource already retrieved
#ts1_new_search <- fn_search_tsvalues(config, ds$tsvalues)

# old school
#ts1_old <- getTimeseries(tsinfo, "http://deq2.bse.vt.edu/d.alpha")

## Now set up the destination 
ds2 <- RomDataSource$new("http://deq1.bse.vt.edu/d.dh", rest_uname)
ds2$get_token()

hid2 <- 473590

tstest <- sqldf("select * from ts1 limit 12")
for (i in 1:nrow(ts1)) {
  tsrow <- ts1[i,]
  # tbd: note, we should find the varkey for the original data source
  #      and then set varkey instead of varid when we create this
  #      so that it will query the ds2 to get the proper varid in case
  #      they are different.  For this case, since d.alpha is a clone 
  #      of d.dh, all the varids should be the same.
  tsl <- as.list(tsrow)
  tsl$tid = NULL
  tsl$featureid = hid2
  t2 <- RomTS$new(ds2, tsl)
  t2$save()
}

tsfirst <- ts1[1,]
tsfirst <- as.list(tsfirst)
tsfirst$tid = NULL
tsfirst$featureid = hid2
tsfirst <- RomTS$new(ds2, tsfirst)
tsfirst$save()

# Doesn't work gives a 406, probably for the NA as tsendtime
tslast <- ts1[926,]
tslast <- as.list(tslast)
tslast$tid = NULL
tslast$tsendtime = NULL
tslast$featureid = hid2
tslast <- RomTS$new(ds2, tslast)
tslast$save()
tl <- tslast$to_list()
tm <- as.matrix(tl)