ryanpraski

library(dplyr)
library(tidyr)
library(ggplot2)
df <- read.csv("C:/Users/praskry/Desktop/more_than_1.csv", header = TRUE)
df %>% summarize(UVs = n_distinct(Visitor_ID)) #unique visitor count
df1 <-filter(df, grepl('shoes|socks',Pages)) #filter to only include prod pages
df2 <-df1 %>% group_by(Visitor_ID) %>% filter(n()>1)

df3<-df2 %>% group_by(Visitor_ID) %>% summarize(count=n())
df3 %>% group_by(count) %>% summarize(total.count=n()) 

ryanpraski

library(googleAnalyticsR)
library(ggplot2)
library(dplyr)

#Authorize Google Analytics R- this will open a webpage
#You must be logged into your Google Analytics account on your web browser
ga_auth()

#Use my_accounts to find the viewId. Make sure to replace this with your viewId.
my_id <- 94579701

ryanpraski

library(dplyr)
library(ggplot2)
library(lubridate)
library(XML)

#load apple health export.xml file
xml <- xmlParse("C:\\Users\\praskry\\Desktop\\export_sleep.xml")

#transform xml file to data frame - select the Record rows from the xml file
df <- XML:::xmlAttrsToDataFrame(xml["//Record"])

ryanpraski

//Remove All Empty Columns in the Entire Workbook
function removeEmptyColumns() {
var ss = SpreadsheetApp.getActive();
var allsheets = ss.getSheets();
for (var s in allsheets){
var sheet=allsheets[s]
var maxColumns = sheet.getMaxColumns(); 
var lastColumn = sheet.getLastColumn();
if (maxColumns-lastColumn != 0){
      sheet.deleteColumns(lastColumn+1, maxColumns-lastColumn);

ryanpraski

var isDownloadLink = function(lnk) {
	var isDownload = false;
	if (typeof lnk.href !== 'undefined') {
		var fileTypes = window.s.linkDownloadFileTypes.split(',');
		var href = lnk.href.toLowerCase();
		for (var k = 0; k < fileTypes.length; k++) {
			if (href.indexOf(fileTypes[k].trim()) > -1) {
				isDownload = true;
				break;
			}

ryanpraski

library(httr)
library(rjson)
url <-'https://driftapi.com/conversations/52662097/messages'
token <-'AQ14yXgTM934cMjNEGfa6epBDU6TpCIY'
query <- GET(url, add_headers('Authorization' = paste("bearer", token)))
http_status(query)
df <-fromJSON(content(query,type='text',encoding= 'UTF-8'))

ryanpraski

function main(){
    
    // Set up the parameters  and variables
    var sheetName = '<name>'; // The name of the sheet (not the Spreadsheet) we want to write the data e.g Sheet1
    var tableId = '<table id>'; // The id of the view to query the data from e.g ga:123456
    var startDate = 'yyyy-MM-dd'; // The start date of the query with the appropriate format e.g 2018-04-01 (1 April 2018)
    var endDate = 'yyyy-MM-dd'; // The end date of the query with the appropriate format e.g 2018-04-30 (30 April 2018)
   
    var spreadsheet = SpreadsheetApp.getActiveSpreadsheet();
    var sheet = spreadsheet.getSheetByName(sheetName);

ryanpraski

[Adobe Analytics|DTM] Previous pageName
If you want to save the previous pageName via DTM without a Plugin (getPreviousValue), you can use Session Storage. Two Pageload Rules are needed.

First PLR:
- Trigger Rule at “DOM Ready”
- Rule Condition: Path “.*” (regex enabled)
- Custom Code “None-Sequential Javascript”:

if(typeof(Storage) != "undefined") {
  if (typeof(s) !== "undefined") {

ryanpraski

<script>
window.drift.on('ready',function(api){ 
  window.drift.on('message:sent',function(event){ 
    { 
	   dataLayer.push({
              'event': 'driftInteraction', 
              'eventCategory': 'drift', 
              'eventAction': 'message sent', 
              'eventLabel': 'drift>message sent conversation id: ' + event.conversationId
          });

ryanpraski

_satellite.logger.log("CHECKING JQUERY", $, jQuery);
$(document).ready(function() {
    _satellite.logger.log("INSTALLING HANDLER");
    $(document).ajaxSuccess(function(event, xhr, settings) {
        _satellite.logger.log("FIRING HANDLER", event, xhr, settings);
        var alreadyRun = false;
        console.log("already run false");
        if ((settings.url.indexOf("/loadResults.jsp") > -1) && (alreadyRun = false)); {
            _satellite.logger.log("HANDLER CAUGHT loadResults.jsp", event, xhr, settings);
            alreadyRun = true;