amrrs

# install the new/experimental plotly R package
# devtools::install_github("ropensci/plotly@carson-dsl")

# ----------------------------------------------------------------------
# https://plot.ly/r/3d-line-plots/
# ----------------------------------------------------------------------

library(plotly)

# initiate a 100 x 3 matrix filled with zeros

amrrs

library(coindeskr) #R-Package connecting to Coindesk API 
library(ggplot2)
library(ggthemes)

#Extracting Bitcoin USD Price for the last 31 days

last31 <- get_last31days_price()

date <- rownames(last31)

amrrs

Effective Engineer - Notes

• By Edmond Lau
• Highly Recommended 👍
• http://www.theeffectiveengineer.com/

What's an Effective Engineer?

• They are the people who get things done. Effective Engineers produce results.

Adopt the Right Mindsets

amrrs

library(shiny)

ui <- shinyUI(fluidPage(
  
  titlePanel("Testing File upload"),
  
  sidebarLayout(
    sidebarPanel(
      fileInput('file_input', 'upload file ( . pdf format only)', accept = c('.pdf'))
    ),

amrrs

# save this to '_chat.txt` (it require a login)
# https://www.kaggle.com/sarthaknautiyal/whatsappsample

library(ore)
library(dplyr)

emoji_src <- "https://raw.githubusercontent.com/laurenancona/twimoji/gh-pages/twitterEmojiProject/emoticon_conversion_noGraphic.csv"
emoji_fil <- basename(emoji_src)
if (!file.exists(emoji_fil)) download.file(emoji_src, emoji_fil)

amrrs

library(coinmarketcapr)

library(treemap)

df <- get_marketcap_ticker_all()

df1 <- na.omit(df[,c('id','market_cap_usd')])

df1$market_cap_usd <- as.numeric(df1$market_cap_usd)

amrrs

import newspaper
from nltk import word_tokenize
import enchant
import re
url = 'https://hackernoon.com/dilemmas-of-a-digital-lifestyle-27c044940157' #input URL
my_article = newspaper.Article(url,language='en') # ### Extracting the Article Content
my_article.download()
my_article.parse()  
d = enchant.Dict("en_US") # ### Spell-Checking the tokenized words 
print(list(set([word.encode('ascii', 'ignore') for word in word_tokenize(my_article.text) if d.check(word) is False and re.match('^[a-zA-Z ]*$',word)] )))