From 1ff9c846011a2edd5a45788d3833aba818db6b47 Mon Sep 17 00:00:00 2001
From: Frederik Vanrenterghem <frederik@vanrenterghem.biz>
Date: Mon, 2 Oct 2023 22:40:12 +0800
Subject: [PATCH] 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