Аналитическая карточка нити: �������� ��������������

<!--AI_DOMAIN_SCORE:START v1-->
AI score 2.96/5 (средний) | token='aftab' | hints: нейтральный | domain='aftab.by'
<!--AI_DOMAIN_SCORE:END v1-->

``` **Output:** ```r $ url [1] "https://aftab.by/" $ domain [1] "aftab.by" ``` **Function:** ```r extract_url_domain <- function(url_string) { url_parsed <- parse_url(url_string) url_domain <- attr(url_parsed, "domain") return(url_domain) } ``` ### 1.3.4.1. Extracting subdomains To extract a subdomain, we can modify the previous function to extract the `host` or `sub` component from the parsed URL. ```r extract_subdomain <- function(url_string) { url_parsed <- parse_url(url