czeildi

dt <- data.table(x = c(4,4,2,5,4,2,3))
dt[, g := .GRP, by = x]
dt[, cumuniquen := cummax(g)]

czeildi

library("xts")

dt <- data.table(
  day = seq.Date(as.Date('2016-07-01'), by = 'day', length.out = 180),
  x = 1:180,
  y = 1001:1180
)

ts_data <- as.xts(dt)

czeildi

# dt is a data.table with id_cols and value_cols
# we want rows where any of the value cols is not NA regardless of the 
# values of the id_cols

dt[, to_keep := purrr::pmap_lgl(
    purrr::map_df(
        dt[, .SD, .SDcols = value_cols],
        ~ !is.na(.x)
    ),
    any

czeildi

var TennisGame1 = function(player1Name, player2Name) {
    this.scores = [
      0,
      0
    ];

    this.players = [
        player1Name,
        player2Name
    ];

czeildi

# open Rproj with packrat
# restart R session

library("testthat")
source("libraries.R")

packrat::with_extlib(
  c("rex", "covr", "DT"), {
    library("rex")
    library("covr")

czeildi

class Dojo:
    def __init__(self, input):
        self.input = input

    def calculate(self):
        return 42

czeildi

library("lubridate")
#> 
#> Attaching package: 'lubridate'
#> The following object is masked from 'package:base':
#> 
#>     date

a_sunday <- as.Date("2017-08-27")

# floor_date rounds to Sunday:

czeildi

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.

czeildi

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')
}

czeildi

# 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)
)