VAHydro-2.0/run_text.R

#' @param runid 
#' @param site vhydro url
#' @return run_text dataframe 
#' @export run_text
#' @examples NA
run_text <- function (runid = "runid_600",site = "https://deq1.bse.vt.edu/d.dh",token = NULL) {

# Create datasource
#private = list(token = token)
ds <- RomDataSource$new(site)
RomDataSource$private$token <- token
scen_var <- ds$get_vardef('om_scenario')
scen_config <- ds$get_prop(list(featureid = scen_var$varid,entity_type = 'dh_variabledefinition',propname = 'variants'))
src_json_node <- paste(site,'/node/62', scen_config$pid, sep="/")
load_txt <- ds$auth_read(src_json_node, "text/json", "")
load_objects <- fromJSON(load_txt)
#load_objects$reports$cia

# Show the infofor runid 600
run_text <- load_objects$variants[runid]

return(run_text)
}
HARPgroup/hydro-tools documentation built on July 4, 2025, 11:05 a.m.