From 1ff9c846011a2edd5a45788d3833aba818db6b47 Mon Sep 17 00:00:00 2001 From: Frederik Vanrenterghem Date: Mon, 2 Oct 2023 22:40:12 +0800 Subject: [PATCH 1/1] Remove redundant list(). --- WA_active_schools.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/WA_active_schools.R b/WA_active_schools.R index 0811702..ae59595 100644 --- a/WA_active_schools.R +++ b/WA_active_schools.R @@ -11,11 +11,11 @@ tempdirSHP <- tempdir() tempfileSHP <- tempfile() req <- request("https://sso.slip.wa.gov.au/as/token.oauth2") |> req_headers("Authorization" = "Basic ZGlyZWN0LWRvd25sb2Fk") |> - req_body_form(list("grant_type" = "password", - # SLIP username and password stored in - #pass - the standard unix password manager - "username" = system2("pass", args = "slip.wa.gov.au | grep Username | sed -e 's/Username: //'", stdout = TRUE), - "password" = system2("pass", args = "slip.wa.gov.au | head -1", stdout = TRUE))) + req_body_form(grant_type = "password", + # SLIP username and password stored in + # pass - the standard unix password manager + username = system2("pass", args = "slip.wa.gov.au | grep Username | sed -e 's/Username: //'", stdout = TRUE), + password = system2("pass", args = "slip.wa.gov.au | head -1", stdout = TRUE)) tokenResponse <- req_perform(req) -- 2.39.5