R/get_artfacts_artist.R

In Framus94/HierarchiesAndCareers:

#
# lib = c("dplyr", "stringr", "tidyr", "purrr", "reshape2", "XML", "xml2", "rvest", "tm", "httr", "RSelenium", "wdman", "zoo")
# to.install = lib[do.call(rbind, invisible(lapply(lib, require, character.only = T))) == F]
# if(length(to.install) > 0){install.packages(to.install)}
# invisible(lapply(lib, require, character.only = T))
#
# # get_artfacts_artist
#
#   #artists %>% filter(id == "78702") %>% pull(name)
#
#
# cDrv <- chrome(verbose = FALSE, check = FALSE)
# cDrv$process
#
# rd = rsDriver()
# Sys.sleep(1)
# remdr = rd[["client"]]