JasonJay jasonthename

## scraping_post.ipynb

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                jasonthename
                / scraping_post.ipynb
            
            
              Created
              November 15, 2018 04:38
                — forked from BolajiOlajide/scraping_post.ipynb
            
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## delete-twitter-dm.js
// Open direct messages window, paste this into console.
function deleteNextConversation()
{
    if (!(dm = document.getElementsByClassName("DMInbox-conversationItem")[0])) {
        clearInterval(tmr)
        return;
    }

    dm.firstChild.click();
    setTimeout('document.getElementsByClassName("js-actionDeleteConversation")[0].click()', 1000);

## backup-github-repos.pl
#!/usr/bin/perl
#
# Script to download/clone all of your Github repos
#
# Copyright Nicholas Humfrey, 22nd August 2017
#
# License: http://unlicense.org
#

use JSON;

## Rvest tutorial - Part 2
#Format the link to navigate to the artists genius webpage
genius_urls <- paste0("https://genius.com/artists/",top_artists$Artist)

#Initialize a tibble to store the results
artist_lyrics <- tibble()

# Outer loop to get the song links for each artist
for (i in 1:10) {
  genius_page <- read_html(genius_urls[i])
  song_links <- html_nodes(genius_page, ".mini_card_grid-song a") %>%
	#!/usr/bin/perl
	#
	# Script to download/clone all of your Github repos
	#
	# Copyright Nicholas Humfrey, 22nd August 2017
	#
	# License: http://unlicense.org
	#

	use JSON;
	#Format the link to navigate to the artists genius webpage
	genius_urls <- paste0("https://genius.com/artists/",top_artists$Artist)

	#Initialize a tibble to store the results
	artist_lyrics <- tibble()

	# Outer loop to get the song links for each artist
	for (i in 1:10) {
	genius_page <- read_html(genius_urls[i])
	song_links <- html_nodes(genius_page, ".mini_card_grid-song a") %>%