IFSC_results_lead_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 Chamonix July

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

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

$frameId
[1] "CE0D642469B8541986F2430F7276291C"

$loaderId
[1] "FC79A989BD3828D3944714880352BB38"

# Extract the rendered HTML
#   html <- b$Runtime$evaluate('document.querySelector(".appearence-none)')  # Replace with your CSS selector

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)
### 
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 
    score <- .x %>% html_element("td.py-2:nth-child(4)") %>% html_text(trim = TRUE) %>% tail(1)  # score
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           Score = score)
  })
###
#scrap <- scrap %>% 
 # separate(Score, into = c(NA, "score", "Ts", "Zs","Score.rank", NA), sep = " ")
#scrap <- scrap %>% 
 # separate(score.rank, into = c(NA,NA,"score.rank"), sep = "()")
scrap <- scrap %>% 
  mutate(Rank = as.numeric(Rank), 
         Competition = rep(compe, length(scrap$Name) ),
         Stage = rep("Quali", length(scrap$Name ) ) )
##
compe

[1] "IFSC World Cup Chamonix 2024"

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

[1] 68

##
# scrap %>% print(n=length(scrap$Name))
#scrap[,c(1:9)] %>% 
 # filter(!is.na(score)) %>%
#  print(n = 17)
############### ##################
Men_Chamonix_Quali <- scrap

SemiFs

###
b$Runtime$evaluate("
  let dropdown = document.querySelector('select.d3-ty-select'); // Find the dropdown by class
  if (dropdown) {
    dropdown.value = 'Semi-final';  // Set the value to 'Semi-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
###


#html <- b$Runtime$evaluate('document.querySelector(".dropdown-Semim-final").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)
### 
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 
    score <- .x %>% html_element("td.py-2:nth-child(4)") %>% html_text(trim = TRUE) %>% tail(1)  # score
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           Score = score)
  })
###
#scrap <- scrap %>% 
 # separate(Score, into = c(NA, "score", "Ts", "Zs","Score.rank", NA), sep = " ")
#scrap <- scrap %>% 
 # separate(score.rank, into = c(NA,NA,"score.rank"), sep = "()")
scrap <- scrap %>% 
  mutate(Rank = as.numeric(Rank), 
         Competition = rep(compe, length(scrap$Name) ),
         Stage = rep(stage, length(scrap$Name)))
##
compe

[1] "IFSC World Cup Chamonix 2024"

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

[1] 26

##
# scrap %>% print(n=length(scrap$Name))
#scrap[,c(1:9)] %>% 
 # filter(!is.na(score)) %>%
#  print(n = 17)
############### ##################
Men_Chamonix_Semifs <- scrap

Finals

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

$frameId
[1] "703CD5C788061E938202AF06BEAA792E"

$loaderId
[1] "80B0F5A93F6BC0862BCC8505D9EAE44B"

# Extract the rendered HTML
#   html <- b$Runtime$evaluate('document.querySelector(".appearence-none)')  # Replace with your CSS selector
html <- b$Runtime$evaluate('document.querySelector(".appearence-none:nth-child(1)").click();')  # Replace with your CSS selector
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
###


#html <- b$Runtime$evaluate('document.querySelector(".dropdown-Semim-final").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)
### 
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 
    score <- .x %>% html_element("td.py-2:nth-child(4)") %>% html_text(trim = TRUE) %>% tail(1)  # score
    # Return as a tibble
    tibble(Name = name, 
           Rank = rank,
           Country = country,
           Score = score)
  })
###
#scrap <- scrap %>% 
 # separate(Score, into = c(NA, "score", "Ts", "Zs","Score.rank", NA), sep = " ")
#scrap <- scrap %>% 
 # separate(score.rank, into = c(NA,NA,"score.rank"), sep = "()")
scrap <- scrap %>% 
  mutate(Rank = as.numeric(Rank), 
         Competition = rep(compe, length(scrap$Name) ),
         Stage = rep(stage, length(scrap$Name)))
##
compe

[1] "IFSC World Cup Chamonix 2024"

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

[1] 8

##
# scrap %>% print(n=length(scrap$Name))
#scrap[,c(1:9)] %>% 
 # filter(!is.na(score)) %>%
#  print(n = 17)
############### ##################
Men_Chamonix_Finals <- scrap

WRITE

### Write google sheet ###
Men.July_Chamonix.24 <- rbind(Men_Chamonix_Quali,
                              Men_Chamonix_Semifs,
                              Men_Chamonix_Finals)
Men.July_Chamonix.24 %>% print(n=length(Men.July_Chamonix.24$Name))

options(gargle_oauth_email = "villatoropazfj@dataanalysislab.com")
gs4_deauth()
gs4_auth()
sheet_write(data = Men.July_Chamonix.24,
            ss= "https://docs.google.com/spreadsheets/d/1JhBs7yceEXUrnncYDWkWT16nKY1MCx_ZTpxgOOURJ6M/edit?usp=sharing", 
            sheet=paste("Men.July_Chamonix.24", "_", Sys.Date()))

Consolidado en la Hoja Google