getLocationData columns names crash

[Quan-Cui]

Hi, I am using this public API getLocationData from the R client.
https://github.com/AquaticInformatics/examples/blob/master/TimeSeries/PublicApis/R/timeseries_client.R#L305

The issue is that sometimes, the result's column names crash. I.e.
The correct column names are LocationName, Description, Identifier, ...
But for some locations, column names become V1, V2, V3, ....

It looks like when the location has many "Location Notes", the columns' names will malfunction. Please check.

[RobertoFrancesconi-AI]

@Quan-Cui

Hi, I am trying to repeat the issue without any success. Can you please provide a code snippet without server creds? (after you get the location data what do you do with it in code)
Round about how many location notes are in a Location before the error occurs?

[Quan-Cui]

@Quan-Cui

Hi, I am trying to repeat the issue without any success. Can you please provide a code snippet without server creds? (after you get the location data what do you do with it in code) Round about how many location notes are in a Location before the error occurs?

Thank you for checking this. We have 1000 locations, only 23 of them will return with crashed colnames. Is it possible to arrange a 10-min online meeting? I can show you the result. My email is quancuiwork@gmail.com

[RobertoFrancesconi-AI]

If you please could supply some sample code demonstrating this issue it would be greatly appreciated.

[Quan-Cui]

If you please could supply some sample code demonstrating this issue it would be greatly appreciated.

# > 1 import timeseries (R client), then log in
# > 
    myl <- timeseries$getLocationData("LocationA")

We have almost 1000 locations, only 20 of them will return weird colnames as V1, V2...
Those 20 locations seem to have many location notes, referenecs points, etc. I can provide one example if you give me your email. Thank you.

[RobertoFrancesconi-AI]

Would it be possible to print(my1) to display its out and verify the output for one of these problematic locations.

Also to add something like this to the client library and call to output the json in a print statement:

    getLocationDataJson = function(locationIdentifier) {
  locationData <- content(stop_for_status(
    GET(paste0(publishUri, "/GetLocationData"), query = list(LocationIdentifier = locationIdentifier))
  , paste("get location data for", locationIdentifier)), "text")
},

Then verify the json is okay

[Quan-Cui]

my_getLocationDataJson - timeserie.txt
my_getLocationData - timeseries.txt

Hi I've attached 2 printed result:

• my_getLocationDataJson - timeserie is from my_getLocationDataJson <- timeseries$getLocationDataJson("LocationName")
• my_getLocationData - timeseries is from my_getLocationData <- timeseries$getLocationData("LocationName")
• You can get the messed colnames using

messyColname <- my_getLocationData %>%
    unlist() %>%
     as.data.frame() %>%
     t() %>%
     as.data.frame()

Thanks for checking on this. I will delete the 2 attachements when this issue is solved.

[Quan-Cui]

Would it be possible to print(my1) to display its out and verify the output for one of these problematic locations.

Also to add something like this to the client library and call to output the json in a print statement:

    getLocationDataJson = function(locationIdentifier) {
  locationData <- content(stop_for_status(
    GET(paste0(publishUri, "/GetLocationData"), query = list(LocationIdentifier = locationIdentifier))
  , paste("get location data for", locationIdentifier)), "text")
},

Then verify the json is okay

Hi please see my last reply. May I delete the text examples now?