sho otani beijaflor

	library("igraph")
	# Swap out path to your Screaming Frog All Outlink CSV. For Windows, remember to change backslashes to forward slashes.
	links <- read.csv("C:/Documents/screaming-frog-all-outlinks.csv", skip = 1) # CSV Path
	# This line of code is optional. It filters out JavaScript, CSS, and Images. Technically you should keep them in there.
	links <- subset(links, Type=="HREF") # Optional line. Filter.
	links <- subset(links, Follow=="true")
	links <- subset(links, select=c(Source,Destination))
	g <- graph.data.frame(links)
	pr <- page.rank(g, algo = "prpack", vids = V(g), directed = TRUE, damping = 0.85)
	values <- data.frame(pr$vector)

	var detectInjection = function(knownHostsArray) {
	var requests = window.performance.getEntriesByType("resource");
	var unknownHosts = [];
	var knownHosts = {};
	var foundHosts = {};

	for (var knownHost in knownHostsArray) {
	knownHosts[knownHostsArray[knownHost]] = true;
	}

	// GTMのdetaLayerから値を走査する
	// window.dataLayer = [ {"a": "b"}, {"c": "d"} ];

	function findDataLayer(key) {
	if (window.dataLayer == undefined)
	return false;

	var dl = window.dataLayer;
	for (var i = 0; i < dl.length; i++) {
	if( dl[i][key] !== undefined ) {

Original Post