tiobe.R

library(rvest)
library(stringr)
library(tidyverse)

page <- read_html("https://www.tiobe.com/tiobe-index/r/")

script <- page %>% 
  html_node("body > section > section > section > article > script") %>%
  html_text()

script %>% str_replace_all("\n|\r", " ") %>% 
  str_extract("\\[\\[.*\\]\\]") %>%
  str_replace_all("Date.UTC\\(([0-9]+), ([0-9]+), ([0-9]+)\\)", '"\\1-\\2-\\3"') %>%
  jsonlite::fromJSON() %>%
  as_tibble() %>%
  separate(V1, into = c("year", "month", "day"), sep = "-") %>%
  mutate(date = as.Date(paste0(year, "-", as.numeric(month)+1, "-", day))) %>%
  select(date, value = V2)