RodrigoSC

var timing = performance.timing;
var requestEntries = performance.getEntries();
var perfData = {
	PageName: window.location.pathname,
	JSFilesCount: requestEntries.filter(function(element){return element.name.indexOf('.js')> -1;}).length,
	CSSFilesCount: requestEntries.filter(function(element){return element.name.indexOf('.css')> -1;}).length,
	FilesCount: requestEntries.length + 1,
	TimeToFirstByte: timing.responseStart - timing.navigationStart,
	TimeToDOMContentLoad: 
	timing.domContentLoadedEventEnd - timing.navigationStart,

RodrigoSC

#define LED_PIN 7

void setup() {
  pinMode(LED_PIN, OUTPUT);
}

void loop() {
  digitalWrite(LED_PIN, HIGH);
  delay(1000);
  digitalWrite(LED_PIN, LOW);

RodrigoSC

#define LED1_PIN 6
#define LED2_PIN 7
	
void setup() {
  pinMode(LED1_PIN, OUTPUT);
  pinMode(LED2_PIN, OUTPUT);
}

void loop() {
  digitalWrite(LED1_PIN, HIGH);

RodrigoSC

byte character[8]={0x3c, 0x42, 0xa5, 0x81, 0xa5, 0x99, 0x42, 0x3c};

uint8_t rowPins[8]={10,11,12,13,A0,A1,A2,A3};
uint8_t colPins[8]={ 2, 3, 4, 5, 6, 7, 8, 9};

void setup() {
  // Turn everything to low
  for(int i=0; i<8; i++) {
    pinMode(colPins[i],OUTPUT);
    pinMode(rowPins[i],OUTPUT);

RodrigoSC

byte character[8]={0x24, 0x24, 0x24, 0xa5, 0x81, 0x81, 0x7e, 0x0};

uint8_t colPins[8]={ 2, 3, 4, 5, 6, 7, 8, 9};

#define SER_PIN 10
#define SCK_PIN 11
#define RCK_PIN 12

void setup() {
  // Turn everything to low

RodrigoSC

const puppeteer = require('puppeteer');

(async () => {
	var result = 0;
	const browser = await puppeteer.launch({args: ['--no-sandbox', '--disable-setuid-sandbox']});
	console.log("Accessing: " + process.argv[2]);
	const page = await browser.newPage();
	await page.goto(process.argv[2]);
	await page.waitForSelector('#__reactivedoc__ > *, #__reactivedoc__.shiny-output-error')
		.then(() =>  page.$('#__reactivedoc__')

RodrigoSC

library(dplyr)
library(ggplot2)
library(RColorBrewer)

# Create the dataset ----
set.seed(123)
df <- data.frame(helper = c(rnorm(500, 120, 100), 
                            rnorm(500, 1, .8))) %>%
    mutate(elapsed = cumsum(helper), 
           date = as.POSIXct('2019-05-25 10:00:00') + elapsed,