imgur bench

analysis.R

library(ggplot2)
require(stringr)
library(RColorBrewer)

log <- read.csv("D:/Programming/Python/imgurbench/log.csv")
log$datetime <- strptime(log$datetime, "%Y-%m-%d %H:%M:%S")
log$loadingtime[log$loadingtime == -1] <- NA

ggplot(data = log) + 
  geom_line(mapping = aes(x = datetime, y = loadingtime), color="#99FF99", size=1.25) +
  geom_line(mapping = aes(x = datetime, y = referencetime), color="#9999FF", size=1.25) +
  xlab("Zeit") + ylab("Ladezeit in s") +
  ggtitle("Ladezeiten von https://imgur.com/LtsMzxZ") +
  theme_gray()

main.py

import requests
import datetime
import csv
import time
import sched

s = sched.scheduler(time.time, time.sleep)

fieldnames = ["datetime", "loadingtime", "referencetime"]

with open('log.csv', 'w', newline='') as csvfile:
    writer = csv.DictWriter(csvfile, delimiter=',', fieldnames=fieldnames)
    writer.writeheader()

def measure():
    delta = -1
    delta2 = -1

    try:
        start = time.time()
        requests.get("https://imgur.com/LtsMzxZ", timeout=10)
        end = time.time()
        delta = end - start
    except:
        delta = 10

    try:
        start = time.time()
        requests.get("https://google.com", timeout=10)
        end = time.time()
        delta2 = end - start
    except:
        delta2 = 10

    print(delta)
    print(delta2)
    print(datetime.datetime.now())

    with open('log.csv', 'a', newline='') as csvfile:
        writer = csv.DictWriter(csvfile, delimiter=',', fieldnames=fieldnames)
        writer.writerow({'datetime' : str(datetime.datetime.now()), 'loadingtime' : delta, 'referencetime' : delta2})
    s.enter(300, 1, measure)

s.enter(0, 1, measure)
s.run()