Rest API GET request on ClickSend fails to authenticate

[cameronad]

Hi. Trying to send a GET request using httr to ClickSend. The url "...rest.clicksend.com/v3/lists" authenticates OK in another platform (FileMaker script). I need to query ...rest.clicksend.com/v3/lists to get a list of lists.
This responds with a code 200
CSUrl <- "https://rest.clicksend.com/"

# delete TK from ClickSend
response <- GET(CSUrl, authenticate("account.com.au","password"))

This responds with a code 401
CSUrl <- "https://rest.clicksend.com/v3/lists"

# delete TK from ClickSend
response <- GET(CSUrl, authenticate("account.com.au","password"))

[Jaxom]

Hello Cameron,

One issue I can see is when you send a GET request to
CSUrl <- "https://rest.clicksend.com/"

This endpoint does not care about authentication and will always return a 200 response.

I would advise checking your credentials, as when I do a direct copy of your code adding my own credentials, I receive the expected 200 OK response.

Response [https://rest.clicksend.com/v3/lists]
  Date: 2020-05-18 00:55
  Status: 200
  Content-Type: application/json
  Size: 1.23 kB

[cameronad]

@Jaxom. Thank you. The issue was just a simple syntax issue. I delimited the username and password with a colon in my actual code, not a comma, a throwback to another platform. Thanks for prompting me to look at it in more detail.

Now I have got that far, I have successfully deleted a contact list, but can't get passed this, using a POST to create a list.

ListName <- paste0("\"list_name:", ListName, "\"")
CSUrl <- paste("https://rest.clicksend.com/v3/lists")
POST(CSUrl, authenticate("username","password"), body = ListName, content_type('json'))

Clearly not a REST API/cURL expert, any help would be appreciated.

ClickSend developer notes show this as the POST request for cURL. Any help to transpose to R would be great. Thanks in advance.

curl --include \
     --header "Authorization: Basic YXBpLXVzZXJuYW1lOmFwaS1wYXNzd29yZA=="  \
     --request POST \
     --header "Content-Type: application/json" \

     --data-binary "    {
        \"list_name\":\"ListCT3QrVL4od\"
    }" \
'https://rest.clicksend.com/v3/lists'

[Jaxom]

Here is an example of how I got it working:

httr::POST("https://rest.clicksend.com/v3/lists", encode = "json", httr::authenticate("username","password"), body = list(list_name = "test"))

If you provide the payload in a list format with the encode set to json, httr will send it in the json format.

[cameronad]

Thank you so much @Jaxom. Detail, detail, details.