[lolek24]

library(tidyverse)
library(urltools)
library(fs)
library(dplyr)

History_file <-fs::path(Sys.getenv("USERPROFILE"), 
 "AppData/Local/Google/Chrome/User Data/Default/History")

History_file

Database_file <- dplyr::src_sqlite(History_file)

df <- tbl(Database_file, 'urls') %>% collect() %>%
 mutate(domain = urltools::domain(url))

df %>% count(domain) %>%top_n(30, n) %>% 
 mutate(domain = fct_reorder(domain, n)) %>%
 ggplot() + geom_col(aes(domain, n)) + coord_flip()

#datascience #jezykr #programowanie

[heniek_8]

@lolek24:

Databasefile <- dplyr::srcsqlite(History_file)

Error: 'srcsqlite' is not an exported object from 'namespace:dplyr'

[lolek24]

@heniek_8: Ucina znaki _
https://gist.github.com/lolek24/3ec99a3a8b661d2b6b377ab27a68e541

[lemur_78]

@lolek24: o, widzę mój kod :D
https://m.facebook.com/story.php?story_fbid=2250463131910841&substory_index=0&id=1775448726078953