Skip to content

Instantly share code, notes, and snippets.

View bezany's full-sized avatar

Anton Bezkrovnyi bezany

View GitHub Profile
@bezany
bezany / min-secret-number.js
Created July 21, 2019 13:40
https://gist.github.com/koorchik/867460697526af0d84940960ee82652b
n=process.argv[2];[...n].map(_=>{console.log(n),n=[...n].reduce((a,b,d)=>(c=+b+ +n[d-1],(1<d?a:"")+((0|c/10)+c%10)))})
@bezany
bezany / generate.js
Last active September 28, 2018 07:16
JSON schemes dereference
var $RefParser = require('json-schema-ref-parser')
var fs = require('fs')
var path = require('path')
var folderWithSchemas = path.join(__dirname, 'src/api/schemas/')
var dereferencesFolder = path.join(folderWithSchemas, 'dereferences/')
function DereferenceAsync (fileName) {
var fileFrom = path.join(folderWithSchemas, fileName)
var fileTo = path.join(dereferencesFolder, fileName)
@bezany
bezany / vis.html
Last active May 31, 2018 10:52
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<title>DOT viewer</title>
<meta name="viewport" content="width=device-width, initial-scale=1">
<link rel='stylesheet' type='text/css' href='https://cdnjs.cloudflare.com/ajax/libs/vis/4.21.0/vis.min.css'>
<style>
#mynetwork {
@bezany
bezany / app.R
Last active April 18, 2017 13:16
shiny demo observe
library(shiny)
ui <- fluidPage(
fluidRow(
wellPanel(radioButtons(inputId = "radio1", label="Radio 1", choices = c("Yes", "No"), selected = "No"),
actionButton("btnClick1", "Click 1"))
),
fluidRow(
wellPanel(radioButtons(inputId = "radio2", label="Radio 2", choices = c("Yes", "No"), selected = "No"),
actionButton("btnClick2", "Click 2"))
@bezany
bezany / app.R
Last active April 13, 2017 13:51
Shiny observe in observer problem and example correct work
library(shiny)
ui <- fluidPage(
radioButtons(inputId = "userLogged", label="User Logged", choices = c("Yes", "No")),
actionButton("btnSave", "Save")
)
options(shiny.reactlog=TRUE)
server <-function(input, output, session) {
@bezany
bezany / app.R
Last active April 10, 2017 09:46 — forked from daattali/app.R
Basic form-submission shiny app used in "Persistent data storage in shiny apps" article http://deanattali.com/blog/shiny-persistent-data-storage/ Upd: add mobgolite example
library(shiny)
library(mongolite)
# Define the fields we want to save from the form
fields <- c("name", "used_shiny", "r_num_years")
# Save a response
# ---- This is one of the two functions we will change for every storage type ----
saveData <- function(data) {
data <- as.data.frame(t(data))