tonmcg

border: no
license: gpl-3.0

tonmcg

border: no
license: gpl-3.0

tonmcg

license: mit

tonmcg

border: no
height: 600
license: gpl-3.0

tonmcg

border: no
license: gpl-3.0

tonmcg

border: no
license: gpl-3.0

tonmcg

let GetImages =
    (url as text) =>
    let
        Protocol = Uri.Parts(url)[Scheme],
        PathName = Uri.Parts(url)[Path],
        Host = Uri.Parts(url)[Host],
        Source = Text.From(Text.FromBinary(Web.Contents(url))),
        GetTag = (Counter as number) =>
            let
                CurrentTag = Text.BetweenDelimiters(Text.BetweenDelimiters(Source, "<img", ">", Counter), "src=""", """"),

tonmcg

let GetTables =
    (url as text) =>
    let
        DOM = Text.FromBinary(Web.Contents(url)),
        DOCTYPE = 
            let
                DOCTag = "<!" & Text.BetweenDelimiters(DOM, "<!", ">") & ">"
            in
                DOCTag,
        HTMLOpeningTag = 

tonmcg

library(pacman)
p_load(tidytext, wordcloud, janeaustenr, dplyr)
data("stop_words")

ppdf <- data.frame(prideprejudice, stringsAsFactors = FALSE)

# create a word cloud
create_word_cloud <- function(dat, col_name, exclude = "", max.words = 50, colors = "#034772", ...){
  col <- deparse(substitute(col_name))
  dat %>% 

tonmcg

let Table.Imputer = 
    (table as table, columnName as text, strategy as text, optional axis as number) as table =>
	let
		InputTable = Table.AddIndexColumn(table, "index", 0, 1),
		imputeList = 
			let
				list = Table.Column(InputTable,columnName)
			in
				list,
		imputeColumn =