R Under development (unstable) (2024-03-11 r86098 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> ProcessTimeseriesResponse = function(tsResponse, tsName)
+ {
+   if (!is.null(tsResponse))
+   {
+     # Any request dealing with a single user created item returns a
+     # DSUserObjectResponse. This has ResponseStatus property that indicates
+     # success or failure
+     if (tsResponse$ResponseStatus != DSUserObjectResponseStatus$UserObjectSuccess)
+       print(paste('Request failed for timeseries', tsName, 'with error ', names(DSUserObjectResponseStatus)[tsResponse$ResponseStatus + 1], ': ', tsResponse$ErrorMessage, '\n\n'))
+     else if (!is.null(tsResponse$UserObject))  # The timeseries item won't be returned if you set SkipItem true in CreateItem or UpdateItem
+     {
+       # Here we simply display the timeseries data using a dataframe.
+       tsItem = tsResponse$UserObject
+       metadata = c (Id = tsItem$Id,
+                     Desc = tsItem$Description,
+                     LastModified = as.character(tsItem$LastModified),
+                     StartDate = ifelse (!is.null(tsItem$DateInfo), as.character(tsItem$DateInfo$StartDate), NULL),
+                     EndDate = ifelse(!is.null(tsItem$DateInfo),as.character(tsItem$DateInfo$EndDate), NULL),
+                     Frequency = ifelse(!is.null(tsItem$DateInfo), names(DSUserObjectFrequency)[tsItem$DateInfo$Frequency + 1], NULL),
+                     NoOfValues = ifelse(!is.null(tsItem$DateRange), tsItem$DateRange$ValuesCount , 0))
+       df = data.frame(metadata)
+       print(df)
+ 
+       if (!is.null(tsItem$DateRange))
+       {
+         df = data.frame(Dates = sapply(tsItem$DateRange$Dates,
+                                        FUN = function(x)
+                                        { return (as.character(x)) }),
+                         Values = sapply(tsItem$DateRange$Values,
+                                         FUN = function(x)
+                                         { ifelse (is.null(x), return (NA_character_ ), return (x) )} ))
+         # Values if NULL, is printed as <NA> because, while
+         # convertind list to vector either by using as.vector or sapply,
+         # the NULL values in the list are deleted. and thus there will
+         # be mismatch in no of rows and cannot be put in a dataframe
+         print(df)
+       }
+     }
+   }
+   else
+     print(paste('Timeseries ', tsName, ' successfully updated but item details not returned.'))
+ }
> 
> testID = 'TSVVV023'
> 
> # Modifying 'TSVVV023' it to be a daily frequency
> # series with data from 2000 until 2020.
> 
> # we'll get the list of supported dates between the start and end date.
> startDate = as.Date('2000-01-01')
> endDate = as.Date('2020-12-31')
> freq = DSUserObjectFrequency$Daily
Error: object 'DSUserObjectFrequency' not found
Execution halted