fix solve_captcha

JBGruber · Jun 4, 2024 · 6497ecc · 6497ecc
1 parent a8f6409
commit 6497ecc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: traktok
 Type: Package
 Title: Collecting TikTok Data
-Version: 0.0.4.9000
+Version: 0.0.5.9000
 Authors@R:
     person(given = "Johannes B.",
            family = "Gruber",

diff --git a/R/api_hidden.r b/R/api_hidden.r
@@ -612,7 +612,11 @@ tt_user_videos_hidden <- function(username,
 
 solve_captcha <- function(sess) {
   captcha <- rvest::html_element(sess, "#captcha-verify-image")
-  if (length(captcha) == 0L) return(TRUE)
-  sess$view()
+  if (length(captcha) == 0L) {
+    the$view <- NULL
+    return(TRUE)
+  }
+  if (is.null(the$view))
+    the$view <- sess$view()
   solve_captcha(sess)
 }