Marek Woś event15

## glukoza.php
<?php

function incrementalArea(array $levels, float $xUnit = 1.0): float
{
    $yFactorTotal = 0.0;
    $zeroLevel = $levels[0];

    $relativeLevels = array_map(static function ($level) use ($zeroLevel) {
        return $level - $zeroLevel;
    }, $levels);

## block-pw-admin.php
<?php
declare(strict_types=1);

class block_pw_admin
{
    public function init_queries(array $tableslc)
    {
        $table = qa_db_add_table_prefix('blockedpw');

        $sql = 'CREATE TABLE IF NOT EXISTS `qa_blockedpw` (

## bloc-pw-override.php
<?php

function qa_get_request_content(): ?array
{
    $request      = qa_request();
    $requestparts = qa_request_parts();
    $firstlower   = strtolower($requestparts[0]);
    $routing      = qa_page_routing();
    $page         = $firstlower . '/';

## bloc-pw-page.php
<?php

class block_pw_page
{
    var $directory;
    var $urltoroot;

    public function load_module($directory, $urltoroot): void
    {
        $this->directory = $directory;

## wilson.php
<?php

/*
|--------------------------------------------------------------------------
| 5 Star Rating
|--------------------------------------------------------------------------
|
| Lower bound of Wilson score confidence interval for a Bernoulli parameter (0.9604)
|
| See:

## app.R
library(shiny)
library(shinydashboard)
library(tidyverse)
library(jsonlite)
library(DT)
library(plotly)

options(shiny.sanitize.errors = FALSE)
options(shiny.error=browser)
options(encoding = 'UTF-8')

## swagger.json
{
    "swagger": "2.0",
    "info": {
        "title": "GetResponse Content Gateway API",
        "description": "API za pomoc\u0105 kt\u00f3rego mo\u017cna komunikowa\u0107 si\u0119 z serwisami ukrytymi za VPN.",
        "contact": {
            "name": "GetResponse Digital Marketing Systems Team",
            "email": "grdms@etresponse.com"
        },
        "version": "1.0.0"

## yt.r
library(xlsx)

get_video_stats <- function(videoId) {
  URL <- NULL
  stats <- NULL
  oki <- NULL

  videoId <- paste(c(videoId), collapse = ",")

  URL <- paste0("https://www.googleapis.com/youtube/v3/videos?part=statistics&id=",

## graf.r
library(networkD3)

# Load data
data(MisLinks)
data(MisNodes)

# name, group, size
# razem z, sprawdzana, wystapienia

name   <- c("17", "28", "44", "1")

## oki.json
{"name":"jhsadbjhabsdfj","description":"hbjdbjshdbjhasbj","description_long":"jhsdbjhasdbkjabds kjbdssahjb fasdkfasjdfksjbhfjks","solution_types":"Template design","service_types":"App\/Integration","price":"free","price_value":null,"email":"jjhbjhasdj@wp.pl","video":"https:\/\/www.youtube.com\/watch?v=T1vW8YDDCSc","company_name":"asdfsa","company_description":"sdfaskfnakjsdn fjsdnfajksd kjasf kjasdnfkjasd fs","company_link":"http:\/\/kjnsjdb.com","certified":true,"logo":{"name":"Zrzut ekranu 2017-08-28 o 13.30.53.png","type":"image\/png","file":"data:image\/png;base64,iVBORw0KGgoAAAANSUhEUgAAA1wAAAGdCAYAAAAGznL8AAAKrmlDQ1BJQ0MgUHJvZmlsZQAASImVlgdUE+kWx7+Z9EZLiHRCDUV6B+k1gBDpYCMkgYQSQ0JQsSuLK7iiiIigIugiiIJrAcSGWLCwCDbsC7IoqOtiQVRUdoBHePveee+d98+5M79zc+fOnW\/mO+cPAPk+RyxOh5UAyBBlSSICfRhx8QkMXB+AAAxwyNGKw5WKvdnsUIBo+vx3fbyH1CG6bTHR69\/\/\/69S5vGlXAAgNsJJPCk3A+ETSJzjiiVZAKCQAAZLs8QTXIowTYIMiPDhCU6Z4tYJTpriO5M1URG+CA8CgCdzOJIUAEgfkDwjm5uC9CHTELYW8YQihP0Q9uAKODyEcxGenZGxZIKPImyS9E99Uv7WM0nek8NJkfPUs0wK7yeUitM5y\/\
	<?php

	function incrementalArea(array $levels, float $xUnit = 1.0): float
	{
	$yFactorTotal = 0.0;
	$zeroLevel = $levels[0];

	$relativeLevels = array_map(static function ($level) use ($zeroLevel) {
	return $level - $zeroLevel;
	}, $levels);
	<?php
	declare(strict_types=1);

	class block_pw_admin
	{
	public function init_queries(array $tableslc)
	{
	$table = qa_db_add_table_prefix('blockedpw');

	$sql = 'CREATE TABLE IF NOT EXISTS `qa_blockedpw` (
	<?php

	function qa_get_request_content(): ?array
	{
	$request = qa_request();
	$requestparts = qa_request_parts();
	$firstlower = strtolower($requestparts[0]);
	$routing = qa_page_routing();
	$page = $firstlower . '/';
	<?php

	class block_pw_page
	{
	var $directory;
	var $urltoroot;

	public function load_module($directory, $urltoroot): void
	{
	$this->directory = $directory;
	<?php

	/*
	\|--------------------------------------------------------------------------
	\| 5 Star Rating
	\|--------------------------------------------------------------------------
	\|
	\| Lower bound of Wilson score confidence interval for a Bernoulli parameter (0.9604)
	\|
	\| See:
	library(shiny)
	library(shinydashboard)
	library(tidyverse)
	library(jsonlite)
	library(DT)
	library(plotly)

	options(shiny.sanitize.errors = FALSE)
	options(shiny.error=browser)
	options(encoding = 'UTF-8')
	{
	"swagger": "2.0",
	"info": {
	"title": "GetResponse Content Gateway API",
	"description": "API za pomoc\u0105 kt\u00f3rego mo\u017cna komunikowa\u0107 si\u0119 z serwisami ukrytymi za VPN.",
	"contact": {
	"name": "GetResponse Digital Marketing Systems Team",
	"email": "grdms@etresponse.com"
	},
	"version": "1.0.0"
	library(xlsx)

	get_video_stats <- function(videoId) {
	URL <- NULL
	stats <- NULL
	oki <- NULL

	videoId <- paste(c(videoId), collapse = ",")

	URL <- paste0("https://www.googleapis.com/youtube/v3/videos?part=statistics&id=",
	library(networkD3)

	# Load data
	data(MisLinks)
	data(MisNodes)

	# name, group, size
	# razem z, sprawdzana, wystapienia

	name <- c("17", "28", "44", "1")