From: Frederik Vanrenterghem Date: Mon, 2 Oct 2023 14:40:12 +0000 (+0800) Subject: Remove redundant list(). X-Git-Url: http://git.vanrenterghem.biz/R/project-wa-schools.git/commitdiff_plain/1ff9c846011a2edd5a45788d3833aba818db6b47?hp=50417261b375a912e448e460fca150f4186fef10 Remove redundant list(). --- 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)