library(DatastreamR)

# Login using Configuration
timeseriesClient = TimeSeriesClient$new('Config.ini')

testID = 'TSVVV023'
delResp = timeseriesClient$DeleteItem(testID)
if (!is.null(delResp))
{
  if (delResp$ResponseStatus != DSUserObjectResponseStatus$UserObjectSuccess)
  {
    print(paste('Timeseries DeleteItem failed on',
                delResp.UserObjectId,
                'with error',
                names(DSUserObjectResponseStatus)[delResp$ResponseStatus + 1],
                ':', delResp$ErrorMessage, '\n\n'))
  }
  else
    print(paste('Timeseries', delResp$UserObjectId,'successfully deleted.', '\n\n'))
}