Commit40e0248

committed

Tweak error handling and cache on disk

1 parent7f371c7 commit40e0248Copy full SHA for 40e0248

File tree

-3

lines changed

-3

lines changed

Lines changed: 4 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -111,7 +111,7 @@ req_errors <- function(resp) {`
`111`	`111`
`112`	`112`	`if (any(lengths(r$errors)>1)) {`
`113`	`113`	`if (is.data.frame(r$errors[[1]])) {`
`114`		`-errors<-do.call(rbind,r$errors)`
	`114`	`+errors<-r$errors`
`115`	`115`	`}else {`
`116`	`116`	`errors<- do.call(rbind, lapply(r$errors,list2DF))`
`117`	`117`	`}`
`@@ -144,7 +144,8 @@ req_v2 <- function(scopes) {`
`144`	`144`	`auth_url="https://twitter.com/i/oauth2/authorize",`
`145`	`145`	`pkce=TRUE,`
`146`	`146`	`scope= paste(scopes_client,collapse=""),`
`147`		`-redirect_uri="http://127.0.0.1:1410"`
	`147`	`+redirect_uri="http://127.0.0.1:1410",`
	`148`	`+cache_disk=TRUE`
`148`	`149`	`# redirect_uri = "http://localhost:1410"`
`149`	`150`	`)`
`150`	`151`
`@@ -153,7 +154,7 @@ req_v2 <- function(scopes) {`
`153`	`154`	`req_try<-httr2::req_retry(req_content,`
`154`	`155`	`is_transient=twitter_is_transient,`
`155`	`156`	`after=twitter_after)`
`156`		`-req<-httr2::req_error(req_try,is_error=req_is_error,body=req_errors)`
	`157`	`+req<-httr2::req_error(req_try,is_error=httr2::resp_is_error,body=req_errors)`
`157`	`158`	`req`
`158`	`159`	`}`
`159`	`160`

Comments

(0)