IFSC_Youth_results_2024

Fuente: https://www.ifsc-climbing.org/calendar/index

library(flexdashboard)
knitr::opts_chunk$set(
  echo = TRUE,
    message = FALSE,
  warning = FALSE,
    include = TRUE
)

##
r = getOption("repos")
r["CRAN"] = "http://cran.us.r-project.org"
options(repos = r)
###
if(!require(tidyverse)){install.packages("tidyverse")}
if(!require(googlesheets4)){install.packages("googlesheets4")}
if(!require(googledrive)){install.packages("googledrive")}
if(!require(dplyr)){install.packages("dplyr")}
if(!require(httr2)){install.packages("httr2")}
if(!require(jsonlite)){install.packages("jsonlite")}
if(!require(Rselenium)){install.packages("Rselenium")}

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/

if(!require(chromote)){install.packages("chromote")}
if(!require(purrr)){install.packages("purrr")}
if(!require(wdman)){install.packages("wdman")}
if(!require(pdftools)){install.packages("pdftools")}
##
library(pdftools)
library(chromote)
library(purrr)
library(wdman)

library(tidyverse)
library(rvest)
library(dplyr)
library(jsonlite)
library(RSelenium)

library(googlesheets4)
library(googledrive)

Men_Boulder_Soure_July

##################################################
# scraping active page using chromote #
#############################################

# URL of the webpage to scrape
url <- "https://www.ifsc-climbing.org/events/ifsc-youth-european-cup-soure-2024/result/index?discipline=boulder&category=juniors+male"
############   chromote:: OPTION ######
# Create a new Chromote session
b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "05950A1DC90DF813492AC530BBB47528"

$loaderId
[1] "9743B4D260941915025041C232947F50"

Quali

html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')  # Replace with your CSS selector
Sys.sleep(10) 

### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Qualification"

### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 

# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(compe, length(scrap$Name) ),
         Stage = rep("Quali", length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 29

############### ##################
Men_youth_Soure_Quali <- scrap

Finals

b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "BF2172E91D6664C1E383BBD881CBB628"

$loaderId
[1] "38FD1E43902DE59C1EF6B3D6FD75CE45"

#
html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')
#
Sys.sleep(10) 
###
b$Runtime$evaluate("
  let dropdown = document.querySelector('select.d3-ty-select'); // Find the dropdown by class
  if (dropdown) {
    dropdown.value = 'Final';  // Set the value to 'Final'
    dropdown.dispatchEvent(new Event('change', { bubbles: true })); // Trigger update
  }
")

$result
$result$type
[1] "boolean"

$result$value
[1] TRUE

###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Final"

###
Sys.sleep(10) 
#
### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 
# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(compe, length(scrap$Name) ),
         Stage = rep(stage, length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 10

############### ##################
Men_youth_Soure_Finals <- scrap

Men_youth_a_Boulder_Soure_July

##################################################
# scraping active page using chromote #
#############################################

# URL of the webpage to scrape
url <- "https://www.ifsc-climbing.org/events/ifsc-youth-european-cup-soure-2024/result/index?discipline=boulder&category=youth+a+male"
############   chromote:: OPTION ######
# Create a new Chromote session
b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "CB1F9DB9D3F1CAFEB1474C1B9301AEDA"

$loaderId
[1] "773458DAEC4AB3081D0D16CE91C7BE85"

Quali

html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')  # Replace with your CSS selector
Sys.sleep(10) 

### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Qualification"

### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 

# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(paste(compe, "a"), length(scrap$Name) ),
         Stage = rep("Quali", length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 50

############### ##################
Men_youth_a_Soure_Quali <- scrap

Finals

b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "681F7700384D1C2679371675CBC04CF8"

$loaderId
[1] "4D264165B75610A11303D183F6E8E918"

#
html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')
#
Sys.sleep(10) 
###
b$Runtime$evaluate("
  let dropdown = document.querySelector('select.d3-ty-select'); // Find the dropdown by class
  if (dropdown) {
    dropdown.value = 'Final';  // Set the value to 'Final'
    dropdown.dispatchEvent(new Event('change', { bubbles: true })); // Trigger update
  }
")

$result
$result$type
[1] "boolean"

$result$value
[1] TRUE

###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Final"

###
Sys.sleep(10) 
#
### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 
# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(paste(compe,"a"), length(scrap$Name) ),
         Stage = rep(stage, length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 10

############### ##################
Men_youth_a_Soure_Finals <- scrap

Men_youth_b_Boulder_Soure_July

##################################################
# scraping active page using chromote #
#############################################

# URL of the webpage to scrape
url <- "https://www.ifsc-climbing.org/events/ifsc-youth-european-cup-soure-2024/result/index?discipline=boulder&category=youth+b+male"
############   chromote:: OPTION ######
# Create a new Chromote session
b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "95E2DE97D34D40B725F7862C1A0F2120"

$loaderId
[1] "95286FACC9AECDC3D5F0059A5B5F95E9"

Quali

html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')  # Replace with your CSS selector
Sys.sleep(10) 

### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Qualification"

### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 

# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(paste(compe,"b"), length(scrap$Name) ),
         Stage = rep("Quali", length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 45

############### ##################
Men_youth_b_Soure_Quali <- scrap

Finals

b <- ChromoteSession$new()
# Navigate to the webpage
b$Page$navigate(url)

$frameId
[1] "C798A8B246D7FFCB91DDC1ECE25A6DC2"

$loaderId
[1] "93842CE02F60BA53EA41CC65234B3DD1"

#
html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')
#
Sys.sleep(10) 
###
b$Runtime$evaluate("
  let dropdown = document.querySelector('select.d3-ty-select'); // Find the dropdown by class
  if (dropdown) {
    dropdown.value = 'Final';  // Set the value to 'Final'
    dropdown.dispatchEvent(new Event('change', { bubbles: true })); // Trigger update
  }
")

$result
$result$type
[1] "boolean"

$result$value
[1] TRUE

###
stage <- b$Runtime$evaluate("
  document.querySelector('select.d3-ty-select').value;
")$result$value
stage

[1] "Final"

###
Sys.sleep(10) 
#
### WAIT for "backstage" page loading ####
html <- b$Runtime$evaluate("document.documentElement.outerHTML")$result$value
## 
page <- read_html(html)
### 
compe <- page %>%
  html_elements('h2.d3-ty-heading-2') %>%
  html_text()
###
competitor_divs <- page %>% 
  html_elements("tr.px-6") # 
# Extract and clean data
scrap <- competitor_divs %>%
  map_df(~{
    rank <- .x %>% html_element("td.py-2:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1) # rank
    name <- .x %>% html_element("td.py-2:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1) # name
    country <- .x %>% html_element("td.py-2:nth-child(3)") %>% html_text(trim = TRUE) %>% tail(1) # country 
    
    b1.T <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.T <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.T <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.T <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.T <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.T <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(1)") %>% html_text(trim = TRUE) %>% tail(1)
    
    b1.Z <- .x %>% html_element("td.py-2:nth-child(4) span:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b2.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(2) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b3.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(3) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b4.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(4) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b5.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(5) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    b6.Z <- .x %>% html_element(".d3-ty-ascent:nth-child(6) .bg-blue-aa:nth-child(2)") %>% html_text(trim = TRUE) %>% tail(1)
    
    score <- .x %>% html_element("span.text-black") %>% html_text(trim = TRUE) %>% tail(1)
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           B1.T = b1.T,
           B2.T = b2.T,
           B3.T = b3.T,
           B4.T = b4.T,
           B5.T = b5.T,
           B6.T = b6.T,
           B1.Z = b1.Z,
           B2.Z = b2.Z,
           B3.Z = b3.Z,
           B4.Z = b4.Z,
           B5.Z = b5.Z,
           B6.Z = b6.Z,
           Score = score)
  })
###
scrap <- scrap %>%
  separate(Score, into = c("Ts.Zs","attempts.t", "attempts.z"), sep = " ") %>% separate(Ts.Zs, into = c("Tops","Zones"), sep="T") %>% separate(Zones, into = c("Zones",NA), sep="z")
#
scrap <- scrap %>% 
  mutate_at(c(2,4:17), as.numeric) %>%
  mutate(Competition = rep(paste(compe,"b"), length(scrap$Name) ),
         Stage = rep(stage, length(scrap$Name ) ) )
##
compe

[1] "IFSC Youth European Cup Soure 2024"

n.competitors <- max(scrap$Rank, na.rm = TRUE); n.competitors

[1] 10

############### ##################
Men_youth_b_Soure_Finals <- scrap

WRITE

### Write google sheet ###
Men_Boulder_Youth_Soure.24 <- rbind(Men_youth_Soure_Quali,
                              Men_youth_Soure_Finals,
                              Men_youth_a_Soure_Quali,
                              Men_youth_a_Soure_Finals,
                              Men_youth_b_Soure_Quali,
                              Men_youth_b_Soure_Finals)
Men_Boulder_Youth_Soure.24 %>% print(n=length(Men_Boulder_Youth_Soure.24$Name))

#
Men_Boulder_Youth_Soure.24 %>%
  filter(Competition== "IFSC Youth European Cup Soure 2024") %>%
  knitr::kable()

Name	Rank	Country	B1.T	B2.T	B3.T	B4.T	B5.T	B6.T	B1.Z	B2.Z	B3.Z	B4.Z	B5.Z	B6.Z	Tops	Zones	attempts.t	attempts.z	Competition	Stage
guillermo PEINADO FRANGANILLO	1	ESP	1	NA	5	1	1	NA	1	2	3	1	1	NA	4	5	8	8	IFSC Youth European Cup Soure 2024	Quali
luca BOLDRINI	2	ITA	1	NA	5	1	1	NA	1	4	5	1	1	NA	4	5	8	12	IFSC Youth European Cup Soure 2024	Quali
raffael GRUBER	3	AUT	2	NA	7	3	1	NA	2	2	6	3	1	NA	4	5	13	14	IFSC Youth European Cup Soure 2024	Quali
darius RAPA	4	ROU	1	NA	9	3	3	NA	1	4	9	3	1	NA	4	5	16	18	IFSC Youth European Cup Soure 2024	Quali
alexandre NOËL	5	BEL	1	NA	NA	1	2	NA	1	3	2	1	2	NA	3	5	4	9	IFSC Youth European Cup Soure 2024	Quali
tomer YAKOBOVITCH	6	ISR	1	NA	2	1	NA	NA	1	NA	2	1	2	NA	3	4	4	6	IFSC Youth European Cup Soure 2024	Quali
tolani ETCHAR	6	FRA	1	NA	NA	1	2	NA	1	2	NA	1	2	NA	3	4	4	6	IFSC Youth European Cup Soure 2024	Quali
james JENKINS	8	GBR	1	NA	5	NA	2	NA	1	NA	5	2	1	NA	3	4	8	9	IFSC Youth European Cup Soure 2024	Quali
lau MACIÀ LLOBET	9	ESP	2	NA	NA	4	4	NA	2	NA	NA	2	2	NA	3	3	10	6	IFSC Youth European Cup Soure 2024	Quali
ilja AUERSPERG	10	AUT	1	NA	NA	2	NA	NA	1	2	6	2	2	NA	2	5	3	13	IFSC Youth European Cup Soure 2024	Quali
florian SCHWEIGER	11	GER	1	NA	NA	1	NA	NA	1	3	NA	1	1	NA	2	4	2	6	IFSC Youth European Cup Soure 2024	Quali
levin STRAUBHAAR	12	SUI	1	NA	NA	NA	1	NA	1	NA	7	1	1	NA	2	4	2	10	IFSC Youth European Cup Soure 2024	Quali
maksym VNUKOV	13	UKR	2	NA	NA	2	NA	NA	2	NA	NA	2	1	NA	2	3	4	5	IFSC Youth European Cup Soure 2024	Quali
mael BERNIER	14	FRA	4	NA	NA	3	NA	NA	1	NA	NA	3	1	NA	2	3	7	5	IFSC Youth European Cup Soure 2024	Quali
raúl ESCRIBANO SÁNCHEZ	15	ESP	1	NA	NA	NA	NA	NA	1	NA	4	1	2	NA	1	4	1	8	IFSC Youth European Cup Soure 2024	Quali
sam POULLAIN	15	FRA	1	NA	NA	NA	NA	NA	1	4	NA	1	2	NA	1	4	1	8	IFSC Youth European Cup Soure 2024	Quali
tim KOROSEC	17	SLO	1	NA	NA	NA	NA	NA	1	NA	NA	1	1	NA	1	3	1	3	IFSC Youth European Cup Soure 2024	Quali
maël MARCADÉ	18	SUI	1	NA	NA	NA	NA	NA	1	NA	NA	1	2	NA	1	3	1	4	IFSC Youth European Cup Soure 2024	Quali
nicolò SACRIPANTI	18	ITA	1	NA	NA	NA	NA	NA	1	NA	NA	2	1	NA	1	3	1	4	IFSC Youth European Cup Soure 2024	Quali
finn ALTEMÖLLER	20	GER	1	NA	NA	NA	NA	NA	1	NA	8	NA	1	NA	1	3	1	10	IFSC Youth European Cup Soure 2024	Quali
gorazd JUREKOVIC	20	SLO	1	NA	NA	NA	NA	NA	1	NA	NA	6	3	NA	1	3	1	10	IFSC Youth European Cup Soure 2024	Quali
gad PICK	22	ISR	2	NA	NA	NA	NA	NA	2	NA	NA	2	1	NA	1	3	2	5	IFSC Youth European Cup Soure 2024	Quali
gadi HALFON	23	ISR	2	NA	NA	NA	NA	NA	2	NA	NA	1	8	NA	1	3	2	11	IFSC Youth European Cup Soure 2024	Quali
dimitar DIMITROV	24	BUL	3	NA	NA	NA	NA	NA	1	NA	NA	NA	5	NA	1	2	3	6	IFSC Youth European Cup Soure 2024	Quali
tomass DILANS	25	LAT	7	NA	NA	NA	NA	NA	2	NA	NA	NA	2	NA	1	2	7	4	IFSC Youth European Cup Soure 2024	Quali
vasco AVELAR	26	POR	NA	NA	NA	NA	NA	NA	2	NA	NA	NA	1	NA	0	2	0	3	IFSC Youth European Cup Soure 2024	Quali
nedas GRIGALIUNAS	26	LTU	NA	NA	NA	NA	NA	NA	1	NA	NA	NA	2	NA	0	2	0	3	IFSC Youth European Cup Soure 2024	Quali
daniil SAMYSHEV	28	UKR	NA	NA	NA	NA	NA	NA	7	NA	NA	NA	2	NA	0	2	0	9	IFSC Youth European Cup Soure 2024	Quali
josé GOMES	29	POR	NA	NA	NA	NA	NA	NA	3	NA	NA	NA	7	NA	0	2	0	10	IFSC Youth European Cup Soure 2024	Quali
guillermo PEINADO FRANGANILLO	1	ESP	1	NA	1	NA	NA	NA	1	2	1	1	NA	NA	2	4	2	5	IFSC Youth European Cup Soure 2024	Final
ilja AUERSPERG	2	AUT	NA	3	NA	NA	NA	NA	5	1	NA	1	NA	NA	1	3	3	7	IFSC Youth European Cup Soure 2024	Final
tomer YAKOBOVITCH	3	ISR	4	NA	NA	NA	NA	NA	2	2	NA	2	NA	NA	1	3	4	6	IFSC Youth European Cup Soure 2024	Final
james JENKINS	4	GBR	5	NA	NA	NA	NA	NA	2	5	NA	1	NA	NA	1	3	5	8	IFSC Youth European Cup Soure 2024	Final
tolani ETCHAR	5	FRA	NA	NA	NA	NA	NA	NA	4	1	2	NA	NA	NA	0	3	0	7	IFSC Youth European Cup Soure 2024	Final
luca BOLDRINI	6	ITA	NA	NA	NA	NA	NA	NA	4	NA	1	3	NA	NA	0	3	0	8	IFSC Youth European Cup Soure 2024	Final
raffael GRUBER	7	AUT	NA	NA	NA	NA	NA	NA	4	1	NA	4	NA	NA	0	3	0	9	IFSC Youth European Cup Soure 2024	Final
alexandre NOËL	8	BEL	NA	NA	NA	NA	NA	NA	5	NA	1	4	NA	NA	0	3	0	10	IFSC Youth European Cup Soure 2024	Final
darius RAPA	9	ROU	NA	NA	NA	NA	NA	NA	4	7	NA	1	NA	NA	0	3	0	12	IFSC Youth European Cup Soure 2024	Final
lau MACIÀ LLOBET	10	ESP	NA	NA	NA	NA	NA	NA	NA	1	NA	4	NA	NA	0	2	0	5	IFSC Youth European Cup Soure 2024	Final

#
Men_Boulder_Youth_Soure.24 %>%
  filter(Competition== "IFSC Youth European Cup Soure 2024 a") %>%
  knitr::kable()

Name	Rank	Country	B1.T	B2.T	B3.T	B4.T	B5.T	B6.T	B1.Z	B2.Z	B3.Z	B4.Z	B5.Z	B6.Z	Tops	Zones	attempts.t	attempts.z	Competition	Stage
corentin LAPORTE	1	BEL	1	NA	NA	2	1	1	1	1	5	2	1	1	4	6	5	11	IFSC Youth European Cup Soure 2024 a	Quali
timo OSSIG	2	GER	1	NA	NA	4	4	3	1	1	3	1	1	1	4	6	12	8	IFSC Youth European Cup Soure 2024 a	Quali
jan STIPEK	3	CZE	1	NA	NA	1	1	1	1	NA	8	1	1	1	4	5	4	12	IFSC Youth European Cup Soure 2024 a	Quali
gefen LEVI	4	ISR	1	NA	NA	3	1	1	1	1	NA	1	1	1	4	5	6	5	IFSC Youth European Cup Soure 2024 a	Quali
reem HAREL	5	ISR	1	NA	NA	2	2	2	1	NA	NA	2	1	1	4	4	7	5	IFSC Youth European Cup Soure 2024 a	Quali
camille CLAUDE	6	FRA	1	NA	NA	1	NA	2	1	1	3	1	2	2	3	6	4	10	IFSC Youth European Cup Soure 2024 a	Quali
julian SCHRITTWIESER	7	AUT	3	NA	NA	1	NA	1	1	6	4	1	1	1	3	6	5	14	IFSC Youth European Cup Soure 2024 a	Quali
adrien GSELL	8	FRA	2	NA	4	NA	NA	1	2	4	4	1	5	1	3	6	7	17	IFSC Youth European Cup Soure 2024 a	Quali
andrés VILA ANDRÉS	9	ESP	3	NA	10	4	NA	NA	3	1	10	2	3	1	3	6	17	20	IFSC Youth European Cup Soure 2024 a	Quali
janne EISENKOLB	10	GER	1	NA	NA	1	1	NA	1	1	NA	1	1	1	3	5	3	5	IFSC Youth European Cup Soure 2024 a	Quali
lukas MOKROLUSKY	11	CZE	1	NA	NA	1	NA	4	1	NA	7	1	1	2	3	5	6	12	IFSC Youth European Cup Soure 2024 a	Quali
lovre ČULIĆ	12	CRO	3	NA	7	NA	NA	1	2	NA	5	4	3	1	3	5	11	15	IFSC Youth European Cup Soure 2024 a	Quali
simone BELARDINELLI	13	ITA	1	NA	NA	NA	2	2	1	NA	2	NA	1	1	3	4	5	5	IFSC Youth European Cup Soure 2024 a	Quali
jonas KÖRNER	14	GER	1	NA	3	NA	3	NA	1	NA	3	NA	1	1	3	4	7	6	IFSC Youth European Cup Soure 2024 a	Quali
finley KERSWELL	15	GBR	2	NA	NA	NA	5	1	1	NA	NA	3	1	1	3	4	8	6	IFSC Youth European Cup Soure 2024 a	Quali
erik SETTIMO	16	ITA	1	NA	NA	NA	4	4	1	NA	NA	6	1	2	3	4	9	10	IFSC Youth European Cup Soure 2024 a	Quali
manuel antonio PASTOR SÁNCHEZ	17	ESP	1	NA	NA	NA	NA	2	1	2	10	2	2	1	2	6	3	18	IFSC Youth European Cup Soure 2024 a	Quali
lucas TRANDAFIR	18	GER	2	NA	NA	NA	NA	1	2	3	9	1	3	1	2	6	3	19	IFSC Youth European Cup Soure 2024 a	Quali
francesco MARCHIONNI	19	ITA	1	NA	NA	NA	2	NA	1	2	NA	3	1	2	2	5	3	9	IFSC Youth European Cup Soure 2024 a	Quali
boyan KIROV	20	BUL	2	NA	NA	NA	NA	1	2	7	NA	8	1	1	2	5	3	19	IFSC Youth European Cup Soure 2024 a	Quali
oscar PONGRATZ	21	GER	1	NA	NA	NA	NA	3	1	NA	3	1	1	1	2	5	4	7	IFSC Youth European Cup Soure 2024 a	Quali
dmytro BESPALYI	22	UKR	11	NA	NA	NA	8	NA	11	NA	10	4	3	1	2	5	19	29	IFSC Youth European Cup Soure 2024 a	Quali
alexandru-florian ZAHARIA	23	ROU	1	NA	NA	NA	NA	1	1	NA	NA	2	2	1	2	4	2	6	IFSC Youth European Cup Soure 2024 a	Quali
darius NAIMJI	24	CZE	1	NA	NA	1	NA	NA	1	NA	NA	1	3	3	2	4	2	8	IFSC Youth European Cup Soure 2024 a	Quali
davide TORRONI	25	SUI	1	NA	NA	NA	NA	2	1	NA	NA	2	1	1	2	4	3	5	IFSC Youth European Cup Soure 2024 a	Quali
or SIVAN	26	ISR	3	NA	NA	NA	1	NA	3	NA	NA	3	1	1	2	4	4	8	IFSC Youth European Cup Soure 2024 a	Quali
esteban BRIDOUX	27	FRA	5	NA	NA	NA	NA	4	5	NA	NA	7	4	1	2	4	9	17	IFSC Youth European Cup Soure 2024 a	Quali
ivan RUSEV	28	BUL	2	NA	NA	NA	NA	1	2	NA	NA	1	NA	1	2	3	3	4	IFSC Youth European Cup Soure 2024 a	Quali
itay RUBANENKO	29	ISR	1	NA	NA	NA	NA	3	1	NA	NA	NA	NA	1	2	2	4	2	IFSC Youth European Cup Soure 2024 a	Quali
tommaso MILANESE	30	ITA	2	NA	NA	NA	NA	NA	2	3	6	1	1	1	1	6	2	14	IFSC Youth European Cup Soure 2024 a	Quali
nikodem WODZYNSKI	31	POL	1	NA	NA	NA	NA	NA	1	3	NA	12	4	1	1	5	1	21	IFSC Youth European Cup Soure 2024 a	Quali
kasper TALLON	32	BEL	2	NA	NA	NA	NA	NA	2	3	NA	4	2	1	1	5	2	12	IFSC Youth European Cup Soure 2024 a	Quali
anej KOSTOMAJ	33	SLO	2	NA	NA	NA	NA	NA	2	NA	NA	2	1	1	1	4	2	6	IFSC Youth European Cup Soure 2024 a	Quali
briq MIDDELBURG	34	NED	3	NA	NA	NA	NA	NA	2	NA	NA	1	2	2	1	4	3	7	IFSC Youth European Cup Soure 2024 a	Quali
santiago ORONICH GREGORIO	35	ESP	NA	NA	NA	NA	NA	3	1	NA	NA	3	6	1	1	4	3	11	IFSC Youth European Cup Soure 2024 a	Quali
lucas PÉREZ NIETO	36	ESP	6	NA	NA	NA	NA	NA	6	NA	NA	5	1	3	1	4	6	15	IFSC Youth European Cup Soure 2024 a	Quali
jaroslav SIKULA	37	CZE	1	NA	NA	NA	NA	NA	1	NA	NA	NA	2	3	1	3	1	6	IFSC Youth European Cup Soure 2024 a	Quali
oleksandr NEBOHA	38	UKR	2	NA	NA	NA	NA	NA	2	NA	NA	NA	2	2	1	3	2	6	IFSC Youth European Cup Soure 2024 a	Quali
paulo MERCADO GUÐRÚNARSON	39	ISL	3	NA	NA	NA	NA	NA	2	NA	NA	NA	7	1	1	3	3	10	IFSC Youth European Cup Soure 2024 a	Quali
sebastian ŠTANCEL	40	SVK	4	NA	NA	NA	NA	NA	1	NA	NA	NA	1	2	1	3	4	4	IFSC Youth European Cup Soure 2024 a	Quali
greipur ÁSMUNDARSON	41	ISL	7	NA	NA	NA	NA	NA	7	NA	NA	NA	4	1	1	3	7	12	IFSC Youth European Cup Soure 2024 a	Quali
yuval LAHAV	42	ISR	NA	NA	NA	NA	NA	NA	1	NA	NA	1	1	1	0	4	0	4	IFSC Youth European Cup Soure 2024 a	Quali
garðar logi BJÖRNSSON	43	ISL	NA	NA	NA	NA	NA	NA	1	NA	NA	1	1	2	0	4	0	5	IFSC Youth European Cup Soure 2024 a	Quali
marek SOUKAL	44	CZE	NA	NA	NA	NA	NA	NA	1	NA	NA	2	3	1	0	4	0	7	IFSC Youth European Cup Soure 2024 a	Quali
noa SEEUWS	45	BEL	NA	NA	NA	NA	NA	NA	4	NA	NA	NA	1	1	0	3	0	6	IFSC Youth European Cup Soure 2024 a	Quali
daniel ŠTANCEL	45	SVK	NA	NA	NA	NA	NA	NA	2	NA	NA	NA	3	1	0	3	0	6	IFSC Youth European Cup Soure 2024 a	Quali
francisco BERNARDES	47	POR	NA	NA	NA	NA	NA	NA	2	NA	NA	8	NA	6	0	3	0	16	IFSC Youth European Cup Soure 2024 a	Quali
pedro GONÇALVES	48	POR	NA	NA	NA	NA	NA	NA	4	NA	NA	NA	NA	1	0	2	0	5	IFSC Youth European Cup Soure 2024 a	Quali
tiago SEQUEIRA	48	POR	NA	NA	NA	NA	NA	NA	3	NA	NA	NA	2	NA	0	2	0	5	IFSC Youth European Cup Soure 2024 a	Quali
oskaras MIKELIONIS	50	LTU	NA	NA	NA	NA	NA	NA	2	NA	NA	NA	NA	NA	0	1	0	2	IFSC Youth European Cup Soure 2024 a	Quali
corentin LAPORTE	1	BEL	3	NA	1	NA	NA	NA	2	2	1	1	NA	NA	2	4	4	6	IFSC Youth European Cup Soure 2024 a	Final
adrien GSELL	2	FRA	5	NA	NA	NA	NA	NA	2	3	1	3	NA	NA	1	4	5	9	IFSC Youth European Cup Soure 2024 a	Final
camille CLAUDE	3	FRA	7	NA	NA	NA	NA	NA	4	9	1	1	NA	NA	1	4	7	15	IFSC Youth European Cup Soure 2024 a	Final
jan STIPEK	4	CZE	NA	NA	1	NA	NA	NA	2	NA	1	1	NA	NA	1	3	1	4	IFSC Youth European Cup Soure 2024 a	Final
gefen LEVI	5	ISR	NA	NA	NA	3	NA	NA	7	NA	1	3	NA	NA	1	3	3	11	IFSC Youth European Cup Soure 2024 a	Final
janne EISENKOLB	6	GER	NA	7	NA	NA	NA	NA	10	1	NA	4	NA	NA	1	3	7	15	IFSC Youth European Cup Soure 2024 a	Final
timo OSSIG	7	GER	NA	1	NA	NA	NA	NA	4	1	NA	NA	NA	NA	1	2	1	5	IFSC Youth European Cup Soure 2024 a	Final
julian SCHRITTWIESER	8	AUT	NA	NA	NA	NA	NA	NA	1	4	3	4	NA	NA	0	4	0	12	IFSC Youth European Cup Soure 2024 a	Final
andrés VILA ANDRÉS	9	ESP	NA	NA	NA	NA	NA	NA	6	NA	2	NA	NA	NA	0	2	0	8	IFSC Youth European Cup Soure 2024 a	Final
reem HAREL	10	ISR	NA	NA	NA	NA	NA	NA	5	NA	4	NA	NA	NA	0	2	0	9	IFSC Youth European Cup Soure 2024 a	Final

#
Men_Boulder_Youth_Soure.24 %>%
  filter(Competition== "IFSC Youth European Cup Soure 2024 b") %>%
  knitr::kable()

Name	Rank	Country	B1.T	B2.T	B3.T	B4.T	B5.T	B6.T	B1.Z	B2.Z	B3.Z	B4.Z	B5.Z	B6.Z	Tops	Zones	attempts.t	attempts.z	Competition	Stage
andrea ludovico CHELLERIS	1	ITA	1	2	2	1	2	2	1	1	2	1	1	2	6	6	10	8	IFSC Youth European Cup Soure 2024 b	Quali
or MARK	2	ISR	1	1	1	NA	6	1	1	1	1	1	1	1	5	6	10	6	IFSC Youth European Cup Soure 2024 b	Quali
elyasaf LANEL	3	ISR	1	3	2	3	3	NA	1	1	2	2	2	1	5	6	12	9	IFSC Youth European Cup Soure 2024 b	Quali
vincent VAN HAGE	4	NED	2	3	2	1	1	NA	1	1	2	1	1	NA	5	5	9	6	IFSC Youth European Cup Soure 2024 b	Quali
itamar HAREL	5	ISR	1	NA	1	2	1	NA	1	1	1	1	1	1	4	6	5	6	IFSC Youth European Cup Soure 2024 b	Quali
eñaut USON POBES	6	ESP	1	NA	1	2	2	NA	1	1	1	1	2	2	4	6	6	8	IFSC Youth European Cup Soure 2024 b	Quali
moreno GHILARDI	6	SUI	1	NA	1	2	2	NA	1	1	1	2	2	1	4	6	6	8	IFSC Youth European Cup Soure 2024 b	Quali
mattis EISENKOLB	8	GER	2	NA	NA	2	2	3	2	1	1	1	2	1	4	6	9	8	IFSC Youth European Cup Soure 2024 b	Quali
bernat MUNNÉ GUITART	9	ESP	NA	NA	2	1	1	NA	1	1	2	1	1	3	3	6	4	9	IFSC Youth European Cup Soure 2024 b	Quali
mathis DUTEURTRE	10	FRA	1	NA	2	1	NA	NA	1	3	2	1	1	2	3	6	4	10	IFSC Youth European Cup Soure 2024 b	Quali
adrien BREMOND POTEAU	11	FRA	1	NA	NA	2	2	NA	1	1	2	2	2	2	3	6	5	10	IFSC Youth European Cup Soure 2024 b	Quali
célestin COPPIETERS	12	BEL	3	NA	NA	1	1	NA	1	1	5	1	1	2	3	6	5	11	IFSC Youth European Cup Soure 2024 b	Quali
brecht D’HAESELEER	13	BEL	3	NA	1	NA	2	NA	1	1	1	1	1	4	3	6	6	9	IFSC Youth European Cup Soure 2024 b	Quali
gabriele FISANOTTI	14	ITA	2	NA	NA	2	2	NA	1	1	3	1	1	3	3	6	6	10	IFSC Youth European Cup Soure 2024 b	Quali
max JAKOB	15	SUI	4	NA	1	1	NA	NA	1	8	1	1	5	1	3	6	6	17	IFSC Youth European Cup Soure 2024 b	Quali
olivier HUISMAN	16	SUI	NA	NA	3	2	2	NA	1	2	1	1	1	1	3	6	7	7	IFSC Youth European Cup Soure 2024 b	Quali
aristide MADRY ALLEPAERTS	17	FRA	2	NA	4	NA	1	NA	1	1	4	1	1	2	3	6	7	10	IFSC Youth European Cup Soure 2024 b	Quali
matej RAJŠEK	17	SLO	2	NA	4	1	NA	NA	1	2	4	1	1	1	3	6	7	10	IFSC Youth European Cup Soure 2024 b	Quali
adrian KATHAN	19	AUT	NA	3	3	NA	2	NA	1	1	2	1	1	1	3	6	8	7	IFSC Youth European Cup Soure 2024 b	Quali
makar IVANOV	20	UKR	3	NA	NA	2	1	NA	3	1	2	2	1	NA	3	5	6	9	IFSC Youth European Cup Soure 2024 b	Quali
mathias TYCHON	21	BEL	2	NA	NA	1	3	NA	2	1	NA	1	1	NA	3	4	6	5	IFSC Youth European Cup Soure 2024 b	Quali
carlos FERREIRA GÓMEZ-VALADÉS	22	ESP	2	NA	NA	1	3	NA	1	1	NA	1	3	NA	3	4	6	6	IFSC Youth European Cup Soure 2024 b	Quali
denis BECHEV	23	BUL	1	NA	NA	1	NA	NA	1	1	2	1	1	2	2	6	2	8	IFSC Youth European Cup Soure 2024 b	Quali
jaroslav AMBROZ	24	CZE	NA	NA	2	2	NA	NA	1	1	2	2	1	2	2	6	4	9	IFSC Youth European Cup Soure 2024 b	Quali
julian LEITNER	25	AUT	NA	NA	NA	1	3	NA	1	1	1	1	1	7	2	6	4	12	IFSC Youth European Cup Soure 2024 b	Quali
pietro FRANZONI	26	ITA	2	NA	NA	2	NA	NA	1	1	NA	1	1	5	2	5	4	9	IFSC Youth European Cup Soure 2024 b	Quali
tijn EXALTO	27	NED	NA	NA	NA	3	1	NA	1	2	NA	3	1	5	2	5	4	12	IFSC Youth European Cup Soure 2024 b	Quali
lovro TOMAŽIN	28	SLO	NA	NA	NA	4	2	NA	1	5	NA	3	1	4	2	5	6	14	IFSC Youth European Cup Soure 2024 b	Quali
yagel BERGER	29	ISR	1	NA	NA	3	NA	NA	1	2	NA	2	NA	2	2	4	4	7	IFSC Youth European Cup Soure 2024 b	Quali
noé SHANKLAND	30	FRA	2	NA	NA	4	NA	NA	1	1	NA	3	NA	1	2	4	6	6	IFSC Youth European Cup Soure 2024 b	Quali
marlon RODZIS	31	GER	NA	NA	NA	1	NA	NA	2	1	1	1	6	1	1	6	1	12	IFSC Youth European Cup Soure 2024 b	Quali
timotej CERMAK	32	CZE	3	NA	NA	NA	NA	NA	1	1	NA	1	2	7	1	5	3	12	IFSC Youth European Cup Soure 2024 b	Quali
adam PAAR	33	CZE	NA	NA	NA	1	NA	NA	1	2	NA	1	NA	NA	1	3	1	4	IFSC Youth European Cup Soure 2024 b	Quali
laurin BECKER	34	GER	NA	NA	NA	4	NA	NA	1	NA	NA	4	4	NA	1	3	4	9	IFSC Youth European Cup Soure 2024 b	Quali
guilherme MATIAS	35	POR	NA	NA	NA	NA	NA	NA	1	3	1	1	3	2	0	6	0	11	IFSC Youth European Cup Soure 2024 b	Quali
lucijan PULJEK	36	CRO	NA	NA	NA	NA	NA	NA	NA	1	NA	1	1	3	0	4	0	6	IFSC Youth European Cup Soure 2024 b	Quali
omri YADID	36	ISR	NA	NA	NA	NA	NA	NA	1	NA	NA	1	2	2	0	4	0	6	IFSC Youth European Cup Soure 2024 b	Quali
tiago RIBEIRO	38	POR	NA	NA	NA	NA	NA	NA	5	3	NA	3	4	NA	0	4	0	15	IFSC Youth European Cup Soure 2024 b	Quali
aleksandar DRAZHEV	39	BUL	NA	NA	NA	NA	NA	NA	3	2	NA	8	NA	7	0	4	0	20	IFSC Youth European Cup Soure 2024 b	Quali
filip LEBLOCH	40	CZE	NA	NA	NA	NA	NA	NA	1	2	NA	1	NA	NA	0	3	0	4	IFSC Youth European Cup Soure 2024 b	Quali
finn WUESTENBERGS	40	BEL	NA	NA	NA	NA	NA	NA	1	NA	NA	2	1	NA	0	3	0	4	IFSC Youth European Cup Soure 2024 b	Quali
stefan KIRCHEV	42	BUL	NA	NA	NA	NA	NA	NA	1	1	NA	NA	NA	7	0	3	0	9	IFSC Youth European Cup Soure 2024 b	Quali
martim LOPES	43	POR	NA	NA	NA	NA	NA	NA	NA	NA	NA	1	2	NA	0	2	0	3	IFSC Youth European Cup Soure 2024 b	Quali
viltautas POCIUS	44	LTU	NA	NA	NA	NA	NA	NA	2	NA	NA	NA	5	NA	0	2	0	7	IFSC Youth European Cup Soure 2024 b	Quali
oscar LENEHAN	45	IRL	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	NA	0	0	0	0	IFSC Youth European Cup Soure 2024 b	Quali
elyasaf LANEL	1	ISR	4	7	1	NA	NA	NA	1	6	1	1	NA	NA	3	4	12	9	IFSC Youth European Cup Soure 2024 b	Final
or MARK	2	ISR	1	4	NA	NA	NA	NA	1	4	1	2	NA	NA	2	4	5	8	IFSC Youth European Cup Soure 2024 b	Final
itamar HAREL	3	ISR	3	3	NA	NA	NA	NA	1	2	1	1	NA	NA	2	4	6	5	IFSC Youth European Cup Soure 2024 b	Final
mattis EISENKOLB	4	GER	NA	5	2	NA	NA	NA	1	2	1	2	NA	NA	2	4	7	6	IFSC Youth European Cup Soure 2024 b	Final
bernat MUNNÉ GUITART	5	ESP	1	NA	NA	NA	NA	NA	1	5	1	3	NA	NA	1	4	1	10	IFSC Youth European Cup Soure 2024 b	Final
eñaut USON POBES	6	ESP	NA	NA	2	NA	NA	NA	4	NA	1	2	NA	NA	1	3	2	7	IFSC Youth European Cup Soure 2024 b	Final
andrea ludovico CHELLERIS	7	ITA	NA	NA	NA	NA	NA	NA	1	5	1	4	NA	NA	0	4	0	11	IFSC Youth European Cup Soure 2024 b	Final
moreno GHILARDI	8	SUI	NA	NA	NA	NA	NA	NA	8	6	5	2	NA	NA	0	4	0	21	IFSC Youth European Cup Soure 2024 b	Final
vincent VAN HAGE	9	NED	NA	NA	NA	NA	NA	NA	1	11	1	NA	NA	NA	0	3	0	13	IFSC Youth European Cup Soure 2024 b	Final
mathis DUTEURTRE	10	FRA	NA	NA	NA	NA	NA	NA	NA	5	1	NA	NA	NA	0	2	0	6	IFSC Youth European Cup Soure 2024 b	Final

#
options(gargle_oauth_email = "villatoropazfj@dataanalysislab.com")
gs4_deauth()
gs4_auth()
sheet_write(data = Men_Boulder_Youth_Soure.24,
            ss= "https://docs.google.com/spreadsheets/d/1bBLij1V2M1Qdsr6Yor7RF0RTgoZZpWesdLEmCYNTUes/edit?usp=sharing", 
            sheet=paste("Men_Boulder_Youth_Soure.24"))  

Consolidado en la Hoja Google