{"cells":[{"metadata":{"_uuid":"4710ac347a7312670a335146ba545a0389349c3d","_execution_state":"idle","trusted":true},"cell_type":"code","source":"## Importing packages\nsuppressPackageStartupMessages(library(data.table))\nsuppressPackageStartupMessages(library(rjson))\nsuppressPackageStartupMessages(library(imager))\nsuppressPackageStartupMessages(library(plyr))\n\n## Input direactory\ndir <- \"../input/train_simplified/\"\nfls.list <- list.files(dir)\n\n##Let's draw ambulances\nX <- fread(paste0(dir, fls.list[3]), colClasses = c(\"key_id\" = \"character\"))\n\n##Will draw 9 doodles\nn <- 3\npar(mfrow = c(n, n))\n\nfor(i in 1:(n^2)){\n\n    x <- X[i,]$drawing\n    y <- fromJSON(x)\n    names(y) <- as.character(1:length(y))\n    Y <- ldply(y, .id = \"stroke\", .inform = TRUE, function(z){\n      data.table( x = z[[1]], y = z[[2]])\n    })\n    \n    mm1 <- max(Y[, c(\"x\", \"y\")])+100\n\n    bg <- imfill(mm1, mm1, val = 1)\n    draw.fun <- function(){\n      dlply(Y, ~stroke, function(u){\n        lines(u$x, u$y, col = unique(u$stroke),lwd = 4)\n        points(u$x, u$y, col = unique(u$stroke), pch = 19, lwd = 10)\n      })\n    }\n    im <- implot(bg, draw.fun())\n    plot(im, axes = F)\n    \n  }\n\n\n\n","execution_count":null,"outputs":[]}],"metadata":{"kernelspec":{"display_name":"R","language":"R","name":"ir"},"language_info":{"mimetype":"text/x-r-source","name":"R","pygments_lexer":"r","version":"3.4.2","file_extension":".r","codemirror_mode":"r"}},"nbformat":4,"nbformat_minor":1}