169 похожих чатов

​​Написал небольшую функцию для сокращения URL, работает через API qps.ru. На

вход функция получает вектор из длинных URL, на выходе вы получаете вектор из их сокращённых версий.

Установка нужных пакетов
# install.packages("stringr")
# install.packages("httr")
# install.packages("xml2")
# install.packages("magrittr")
library(magrittr)

short_url <- function(url) {

short_link <- sapply(url,
function(x) {
stringr::str_interp("https://qps.ru/api?url=${x}") %>%
httr::GET() %>%
httr::content() %>%
xml2::xml_find_all(xpath = "./body") %>%
xml2::xml_text()
},
USE.NAMES = F)
return(short_link)
}


long_links <- c("http://google.com",
"http://selesnow.github.io",
"http://netpeak.net")

short_links <- short_url(long_links)

print(short_links)
[1] "https://qps.ru/mcboW" "https://qps.ru/CIEMi" "https://qps.ru/52OZp"

Возможно в будущем напишу ещё ряд функций такого рода и объединю в пакет.

1 ответов

16 просмотров
Артём-Клевцов Автор вопроса

Можно капельку проще: > readLines("https://qps.ru/api?url=https://google.com") [1] "https://qps.ru/2g5MI"

Похожие вопросы

Обсуждают сегодня

Добрый вечер. Есть вопрос, а может и предложение. Был у меня диалог в другой группе о делфи и я задался вопросом: "А нельзя ли в делфи цвет //коментария и {комментария} сде...
Kraszx
24
Мдя, прикол, боевая сборка запускается (именно под отладчиком) после F9 примерно полторы минуты (97 секунд если быть точным). Начал копать - проблема детектится сразу - зависа...
Александр (Rouse_) Багель
38
Всем привет! Подскажи, пожалуйста, как передать в TComboBox сразу значение и id записи. На Delphi я делал так: ComboBox1.Items.AddObject('Какое-то значение', Pointer(id запис...
Евгений
13
я так понимаю, я так подозреваю, что создание такого плагина для человека, кто умеет писать плагины для делфи потребует минут 5-10 времени. но это мое подозрение. хотелось бы ...
Kraszx
7
Товарищи, кто работа с iphelper? Или может я в самой логике ошибки фигачу, не пойму.... var ifTable : PMIB_IFTABLE; size, corSize: DWORD; Buffer ...
Warfarellen
4
Здравствуйте, вопрос по структурам данных. Были у вас случаи, когда пришлось писать деревья или двунаправленные списки?
/ /
50
Коллеги, добрый вечер. Создаю коллекцию от TFPGMap, ключ - перечисление, значение - целое. Нужно отсортировать коллекцию по значению. Как это можно сделать?
Kirill Filippenok
11
Привет, такой вопросик появился кажется ли вам что Rust слишком сложный/строгий для высокоуровневого программирования и слишком "безопасный"/строгий для низкоуровневого?
Крокант
10
Скажи а ты когда этот канал создавал ты уже дельфи не любил, или это со временем пришло?
Роман Лях (rgreat)
18
Всем привет! Использую кастомное модальное диалоговое окошко, все по классике - mrOK, mrCancel как ModalResult. Однако есть нюанс - в главной форме есть универсальный обработч...
Олег Гранишевский
20
Карта сайта