Ildikó Czeller czeildi

## acyclic_graph.cpp
class node{
  public:
    int id;
    short visited; // 0: not visited, 1: reached but not fully processed, 2: fully processed
    int parent;
    node(int idx) : id(idx), visited(0) {}
};
bool comp(const node & p, const node & q) {
  return (p.exit_time > q.exit_time);
}

## shiny_is_server.R
nzchar(Sys.getenv("SHINY_PORT"))

## cum_unique_n.sql
SELECT
  customer_id
  , launch_at
  , count(is_first_occurence) over (ORDER BY launch_at) preceeding_customer_count
FROM
  (
    SELECT
      customer_id
      , launch_at
      , (CASE WHEN row_number() over ( PARTITION BY customer_id ORDER BY launch_at) = 1 THEN 1 ELSE NULL END) AS is_first_occurence

## gzip_data.R
gzipData <- function(target_folder = "repo-name/data") {

    purrr::walk(
        list.files(target_folder, "\\.csv$"),
        ~ system(glue::glue("gzip {target_folder}/{.x}"))
    )
}

## weekday_labeller.R
convertNumToWeekdayName <- function(weekday_num) {
	c(
		"Sunday",
		"Monday", "Tuesday", "Wednesday", "Thursday",
	 	"Friday", "Saturday"
	) %>%
		.[weekday_num + 1]
}


## pre-push
# do not forget to set the executable bit on .git/hooks/pre-push
Rscript test-runner.R

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                czeildi
                / keybase.md
            
            
              Created
              October 27, 2017 06:32
            
              
                keybase.md
              
          
    Keybase proof

I hereby claim:

I am czeildi on github.
I am czeildi (https://keybase.io/czeildi) on keybase.
I have a public key ASCYxwcV2iEWpdNSGFWAmMdau7FkXpkDsh-UbzGmGmnIQQo

To claim this, I am signing this object:

  
## ggplot_theme.R
# setup: example data

library(ggplot2)
library(data.table)

dt <- data.table(
    period = c("before", "after", "before", "after"),
    segment = c("treatment", "treatment", "control", "control"),
    revenue = c(80, 85, 78, 79)
)

## cs_check.R
check_results <- devtools::check()
print(check_results)
if (length(check_results$errors) + length(check_results$warnings) + length(check_results$notes) >= 1) {
    stop('error, warning or note found')
}

## download_tutorial.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                czeildi
                / download_tutorial.md
            
            
              Last active
              September 1, 2017 17:42
            
              
                fájlok letöltése githubról git nélkül
              
          
    Ha nincs git (verziókövető rendszer) a számítógépeden, de mégis szeretnél fájlokat letölteni egy github repositoryból, a következő lehetőségeid vannak:
A legegyszerűbb talán a kezdőoldalon zip-ként az egész projektet letölteni, majd ezt a gépeden kicsomagolni. Így garantált, hogy megmarad a mappastruktúra, és minden fájl típusa.

Fontos, hogy egy-egy fájl vagy mappa linkjére jobb klikk, mentés esetén nem a fájl, hanem az egész weboldal fog letöltődni, ami tipikusan nem az, amit szeretnénk.
Ha egyesével szeretnél fájlokat letölteni, fájltípustól függően kicsit más felülettel fogsz találkozni, miután rákattintottál a fájl linkjére. Ha nem szöveg alapú fájlról van szó (md, csv, R, js etc) akkor egyszerűbb a dolgod, fogsz látni egy download gombot.
	class node{
	public:
	int id;
	short visited; // 0: not visited, 1: reached but not fully processed, 2: fully processed
	int parent;
	node(int idx) : id(idx), visited(0) {}
	};
	bool comp(const node & p, const node & q) {
	return (p.exit_time > q.exit_time);
	}
	SELECT
	customer_id
	, launch_at
	, count(is_first_occurence) over (ORDER BY launch_at) preceeding_customer_count
	FROM
	(
	SELECT
	customer_id
	, launch_at
	, (CASE WHEN row_number() over ( PARTITION BY customer_id ORDER BY launch_at) = 1 THEN 1 ELSE NULL END) AS is_first_occurence
	gzipData <- function(target_folder = "repo-name/data") {

	purrr::walk(
	list.files(target_folder, "\\.csv$"),
	~ system(glue::glue("gzip {target_folder}/{.x}"))
	)
	}
	convertNumToWeekdayName <- function(weekday_num) {
	c(
	"Sunday",
	"Monday", "Tuesday", "Wednesday", "Thursday",
	"Friday", "Saturday"
	) %>%
	.[weekday_num + 1]
	}
	# do not forget to set the executable bit on .git/hooks/pre-push
	Rscript test-runner.R
	# setup: example data

	library(ggplot2)
	library(data.table)

	dt <- data.table(
	period = c("before", "after", "before", "after"),
	segment = c("treatment", "treatment", "control", "control"),
	revenue = c(80, 85, 78, 79)
	)
	check_results <- devtools::check()
	print(check_results)
	if (length(check_results$errors) + length(check_results$warnings) + length(check_results$notes) >= 1) {
	stop('error, warning or note found')
	}