Update readme example

[sannegovaert]

The code in the README gives an error.

library(httr) # to talk to the internet
library(magrittr) # to use pipes
library(jsonlite) # to work with JSON files
library(askpass) # to safly enter a password in R

# To access the ETN database, we need a login (username + password). We'll ask
# for the password dynamically because that's safer than storing it as an object
username <- "<your username here!>"
# All functions can be adressed directly in the URL
endpoint <- "https://opencpu.lifewatch.be/library/etn/R/list_animal_ids"
# Request the result of the function to be a json, and put in a request
response <-
    httr::POST(paste(endpoint, "json", sep = "/"),
      body = list(
        credentials = glue::glue('list(username = "{username}", password = "{askpass::askpass()}")')
      )
    )
# Take the response of the server, and convert it into an R object we can use
response %>%
    httr::content(as = "text", encoding = "UTF-8") %>%
    jsonlite::fromJSON(simplifyVector = TRUE)

Error: lexical error: invalid char in json text.
                                       unused argument (credentials = 
                     (right here) ------^

[PietrH]

domain <- "https://opencpu.lifewatch.be/library/etnservice/R"
function_identity <- "list_animal_ids"
username <- "[email protected]"
httr2::request(domain) |>
  httr2::req_url_path_append(paste(sep = "/", function_identity, "json")) |>
  httr2::req_body_json(data = list(credentials = list(username = username,
                                          password = askpass::askpass()))) |>
  httr2::req_perform() |>
  httr2::resp_body_json(check_type = FALSE)

Also doesn't work for Sanne with a HTTP 400 return

[PietrH]

@sannegovaert Could you try this in powershell just to validate your credentials?

$headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
$headers.Add("Content-Type", "application/json")

$body = @"
{
    `"username`": `"your_username`",
    `"password`": `"your_password`"
}
"@

$response = Invoke-RestMethod 'https://opencpu-test.lifewatch.be/library/etnservice/R/validate_login/json' -Method 'POST' -Headers $headers -Body $body
$response | ConvertTo-Json

[PietrH]

Or Curl

curl --location 'https://opencpu-test.lifewatch.be/library/etnservice/R/validate_login/json' \
--header 'Content-Type: application/json' \
--data-raw '{
    "username": "your_username",
    "password": "your_pwd"
}'

[sannegovaert]

@sannegovaert Could you try this in powershell just to validate your credentials?

$headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]"
$headers.Add("Content-Type", "application/json")

$body = @"
{
"username": "your_username",
"password": "your_password"
}
"@

$response = Invoke-RestMethod 'https://opencpu-test.lifewatch.be/library/etnservice/R/validate_login/json' -Method 'POST' -Headers $headers -Body $body
$response | ConvertTo-Json

The response is true.

[PietrH]

So your credentials work, good to have that out of the way!

…

On Fri, 28 Mar 2025, 12:09 Sanne Govaert, ***@***.***> wrote: @sannegovaert <https://github.com/sannegovaert> Could you try this in powershell just to validate your credentials? $headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]" $headers.Add("Content-Type", "application/json") $body = @" { "username": "your_username", "password": "your_password" } "@ $response = Invoke-RestMethod ' https://opencpu-test.lifewatch.be/library/etnservice/R/validate_login/json' -Method 'POST' -Headers $headers -Body $body $response | ConvertTo-Json The response is true. — Reply to this email directly, view it on GitHub <#63 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ALOW2O7LTUWISPUF2LEGCWT2WUNWHAVCNFSM6AAAAABZ5NH6EGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDONRRGA2DEMJQGU> . You are receiving this because you were assigned.Message ID: ***@***.***> [image: sannegovaert]*sannegovaert* left a comment (inbo/etnservice#63) <#63 (comment)> @sannegovaert <https://github.com/sannegovaert> Could you try this in powershell just to validate your credentials? $headers = New-Object "System.Collections.Generic.Dictionary[[String],[String]]" $headers.Add("Content-Type", "application/json") $body = @" { "username": "your_username", "password": "your_password" } "@ $response = Invoke-RestMethod ' https://opencpu-test.lifewatch.be/library/etnservice/R/validate_login/json' -Method 'POST' -Headers $headers -Body $body $response | ConvertTo-Json The response is true. — Reply to this email directly, view it on GitHub <#63 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/ALOW2O7LTUWISPUF2LEGCWT2WUNWHAVCNFSM6AAAAABZ5NH6EGVHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMZDONRRGA2DEMJQGU> . You are receiving this because you were assigned.Message ID: ***@***.***>

[sannegovaert]

I had a typo in my username... So there is nog bug!

[sannegovaert]

I am wrong, the inital code does not work but the new solution works :-)

[PietrH]

Readme to be updated!