From: Frederik Vanrenterghem <frederik@vanrenterghem.biz>
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

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)