R4marketing | канал Алексея Селезнёва | Язык R. Страница 11

 
library(rytstat)
ryt_auth('[email protected]')
videos_details <- ryt_get_video_details(
    video_id = videos$id_video_id,
    part = c('snippet', 'statistics'),
    fields = "items(id,snippet/channelId,snippet/title,statistics/viewCount)"
)

 
# поиск видео по запросу
search_res_videos <- ryt_search(
  type            = 'video',
  q               = 'r language tutorial',
  published_after = '2022-03-01T00:00:00Z',
  published_before = '2022-06-01T00:00:00Z',
  max_results     = 10
)

# поиск плейлистов по запросу
search_res_playlists <- ryt_search(
  type             = 'playlist',
  q                = 'r language tutorial',
  published_after  = '2022-03-01T00:00:00Z',
  published_before = '2022-06-01T00:00:00Z',
  max_results      = 50
)

# поиск каналов по запросу
search_res_channels <- ryt_search(
type             = 'channel',
q                = 'r language tutorial',
published_after  = '2022-03-01T00:00:00Z',
  published_before = '2022-06-01T00:00:00Z',
  max_results      = 50
)

 
postcards::create_postcard(template = "jolla")
postcards::create_postcard(template = "jolla-blue")
postcards::create_postcard(template = "trestles")
postcards::create_postcard(template = "onofre")
postcards::create_postcard(template = "solana")

 
---
title: "Xiang Guo"
image: "xiang.jpg"
links:
  - label: LinkedIn
    url: "https://linkedin.com/"
  - label: Twitter
    url: "https://twitter.com/"
  - label: GitHub
    url: "https://github.com/"
  - label: Email
    url: "mailto:[email protected]"
output:
  postcards::jolla_blue
---
 
Raised in New Jersey by two lawyers, I am now an aspiring data artist and 
competitive rock climber. I moved to Seattle to fly floatplanes, but I got 
caught up in the startup world. Send me a WhatsApp message if you have good 
turnip prices.

 
Texts = c("Let the stormy clouds chase, everyone from the place ☁️  ♪ ♬",
    "See you soon brother ☮️ ",
    "A boring old-fashioned message" ) 

gsub("[^\x01-\x7F]", "", Texts)
[1] "Let the stormy clouds chase, everyone from the place    "
[2] "See you soon brother  "                                  
[3] "A boring old-fashioned message"

 
library(listr)

# тестовые данные
by_cyl <- split(mtcars, mtcars$cyl)

# переименовываем элементы списка
by_cyl <- by_cyl |> 
  list_rename("cyl4" = `4`, "cyl6" = `6`, "cyl8" = `8`)

# выбор элементов списка
by_cyl |> list_select(1, 2)
cyl4 <- by_cyl |> list_extract(cyl4)

# удаляем элемент списка
by_cyl <- by_cyl |> list_remove(cyl4)

# добавляем элемент списка
by_cyl <- by_cyl |> list_prepend(cyl4, name = "cyl4")

# объединяем таблицы в списке
by_cyl |> 
  list_bind(cyl4, cyl6, what = "rows", name = "cyl4_and_6")

# объединяем таблицы по ключу
dfl <- list(
  data.frame(idx = sample(100, 30), x = rnorm(30)),
  data.frame(idx = sample(100, 30), y = rnorm(30)),
  data.frame(idx = sample(100, 30), z = rnorm(30))
  )

list_join_df(dfl, join_type = 'inner', by = 'idx')

# Проверяем принадлежат ли отдельные элементы списка одному классу
dfl <- list(
  tibble::tibble(idx = 21:40, y = rnorm(20)),
  data.frame(idx = 21:40, y = rnorm(20)),
  data.frame(idx = 41:60, y = rnorm(20))
  )

list_is_same_class(dfl)
list_is_compatible_class(dfl)