Weaken oauth_flow_check() in oauth_flow_device() (#171)

Fixes #170

Author: flahn

NEWS.md

@@ -1,5 +1,7 @@
 # httr2 (development version)
 
+* disabled check for interactive session `oauth_flow_check(..., interactive)` on device code flow to print URL and device code as intended (@flahn, #170)
+
 * The environment variable `HTTR2_REFRESH_TOKEN` replaces the previous `HTTR_REFRESH_TOKEN` (@jennybc, #169).
 
 * OAuth tokens can now be refreshed. One, two, or even more times! (@jennybc, #166)

R/oauth-flow-device.R

@@ -58,7 +58,7 @@ oauth_flow_device <- function(client,
                               scope = NULL,
                               auth_params = list(),
                               token_params = list()) {
-  oauth_flow_check("device", client, interactive = TRUE)
+  oauth_flow_check("device", client, interactive = is_interactive())
 
   if (pkce) {
     code <- oauth_flow_auth_code_pkce()