@codingame/monaco-editor-wrapper 3.10.0-monaco-update.1 → 3.10.0

package/dist/vscode-R-r-snippets.js

@@ -0,0 +1,534 @@
+var rug = {
+	prefix: "rug",
+	body: "rug(${1:jitter(${2:x})})",
+	descriptison: "Add Tick Marks"
+};
+var app = {
+	prefix: "apply",
+	body: "apply(${1:X}, ${2:MARGIN}, ${3:FUN}, ${4:...})",
+	description: "Apply"
+};
+var att = {
+	prefix: "attach",
+	body: "attach(${1:frame})",
+	description: "Attach"
+};
+var cat = {
+	prefix: "cat",
+	body: "cat(${1:file}, ${2:sep = ${3:\"\"}}, ${4:fill = ${5:FALSE}}, ${6:labels = ${7:NULL}}, ${8:append = ${9:FALSE}})",
+	description: "Cat"
+};
+var cum = {
+	prefix: "cum",
+	body: "cum${1:max}(${2:x})",
+	description: "Cummulative"
+};
+var cuma = {
+	prefix: "cumaax",
+	body: "cummax(${1:x}",
+	description: "Cummulative max"
+};
+var cumi = {
+	prefix: "cumin",
+	body: "cummin(${1:x}",
+	description: "Cummulative min"
+};
+var daf = {
+	prefix: "data.frame",
+	body: "data.frame(${1:...}, ${2:row.names = ${3:NULL}}, ${4:check.rows = ${5:FALSE}}, ${6:check.names = ${7:TRUE}}, ${8:stringsAsFactors = ${9:default.stringsAsFactors()}})",
+	description: "Data Frame"
+};
+var den = {
+	prefix: "density",
+	body: "density(${1:x}${2:, bw = ${3:bandwidth}})",
+	description: "Density"
+};
+var det = {
+	prefix: "detach",
+	body: "detach(${0:})",
+	description: "Detach"
+};
+var cut = {
+	prefix: "cut",
+	body: "cut(${1:x}, breaks = c(${2:${3:}, ${4:max(${1:x})}}))",
+	description: "Divide Into Intervals"
+};
+var exp = {
+	prefix: "exppand",
+	body: "expand.grid(${1:...}, ${2:KEEP.OUT.ATTRS = ${3:TRUE}}, ${4:stringsAsFactors = ${5:TRUE}})",
+	description: "Expand grid"
+};
+var fac = {
+	prefix: "factor",
+	body: "factor(${1:x})",
+	description: "Factor"
+};
+var fun = {
+	prefix: "function",
+	body: "function(${1:x}) ${3:{$0\\}}",
+	description: "Function"
+};
+var glm = {
+	prefix: "glm",
+	body: "glm(${1:formula}, ${2:family = {3:gaussian}}, ${4:data})",
+	description: "Generalized Linear Models"
+};
+var grep = {
+	prefix: "grep",
+	body: "grep(${1:pattern}, ${2:x}, ${3:ignore.case = ${4:FALSE}}, ${5:perl = ${6:FALSE}})",
+	description: "Grep"
+};
+var grep2 = {
+	prefix: "grep",
+	body: "grep(${1:pattern}, ${2:x}, ${3:ignore.case = ${4:FALSE}}, ${5:perl = ${6:FALSE}}, ${7:value = ${8:FALSE}}, ${9:fixed = ${10:TRUE}})",
+	description: "Grep"
+};
+var grepl = {
+	prefix: "grepl",
+	body: "grep(${1:pattern}, ${2:x}, ${3:ignore.case = ${4:FALSE}}, ${5:perl = ${6:FALSE}}, ${7:fixed = ${8:TRUE}})",
+	description: "Grep logical"
+};
+var ins = {
+	prefix: "insall",
+	body: "install.packages(${1:pkgs}, ${2:lib}, ${3:repos = ${4:getOption(\"repos\")}}, ${5:contriburl = ${6:contrib.url(repos, type)}})",
+	description: "Install package"
+};
+var km = {
+	prefix: "kmeans",
+	body: "kmeans(${1:x}, ${2:centers}, ${3:iter.max = ${4:10}}, ${5:nstart = ${6:1}}, ${7:algorithm = ${8:c(\"Hartigan-Wong\", \"Lloyd\", \"Forgy\",\"MacQueen\")}}, ${9:trace = ${10:FALSE}})",
+	description: "Kmeans"
+};
+var kr = {
+	prefix: "kruskal",
+	body: "kruskal.test(${1:formula}, ${2:data}, ${3:subset}, ${4:na.action}, ${5:...})",
+	description: "Kruskal-Wallis Rank Sum test"
+};
+var lap = {
+	prefix: "lapply",
+	body: "lapply(${1:X}, ${2:FUN}, ${3:...})",
+	description: "Lapply"
+};
+var len = {
+	prefix: "length",
+	body: "length(${1:x})",
+	description: "Length"
+};
+var lib = {
+	prefix: "library",
+	body: "library(${1:package}, ${2:help}, ${3:pos = ${4:2}}, ${5:lib.loc = ${6:NULL}})",
+	description: "Library"
+};
+var lin = {
+	prefix: "lines",
+	body: "lines(${1:x}${2:, color=${3:red}})",
+	description: "Polygonal Line"
+};
+var dat = {
+	prefix: "data",
+	body: "data(${1:name})",
+	description: "Load Dataset"
+};
+var loa = {
+	prefix: "load",
+	body: "load(${1:file}, ${2:envir = ${3:parent.frame()}}, ${4:verbose = ${5:FALSE}})",
+	description: "Load RData"
+};
+var mea = {
+	prefix: "mean",
+	body: "mean(${1:x}${2:, na.rm=${3:FALSE}})",
+	description: "Mean"
+};
+var mer = {
+	prefix: "merge",
+	body: "merge(${1:x}, ${2:y}, ${3:by = ${4:intersect(names(x), names(y))}}, ${5:all = ${6:FALSE}})",
+	description: "Merge"
+};
+var nam = {
+	prefix: "names",
+	body: "names(${1:x})",
+	description: "Names"
+};
+var opt = {
+	prefix: "option",
+	body: "options(${1:...})",
+	description: "Options"
+};
+var ord = {
+	prefix: "order",
+	body: "order(${1:...}, ${2:na.last = ${3:TRUE}}, ${4:decreasing = ${5:FALSE}})",
+	description: "Order"
+};
+var out = {
+	prefix: "outer",
+	body: "outer(${1:X}, ${2:Y}, ${3:FUN = ${4:\"*\"}}, ${5:...})",
+	description: "Outer"
+};
+var pas = {
+	prefix: "paste",
+	body: "paste(${1:...}, ${2:sep = ${3:\" \"}}, ${3:collapse = ${4:NULL}})",
+	description: "Paste"
+};
+var pas0 = {
+	prefix: "pas0",
+	body: "paste(${1:...}, ${2:collapse = ${3:NULL}})",
+	description: "Paste0"
+};
+var plot = {
+	prefix: "plot",
+	body: "plot(${1:x}, ${2:y}, ${3:...})",
+	description: "Plot"
+};
+var poi = {
+	prefix: "point",
+	body: "points(${1:x}, ${2:y = ${3:NULL}}, ${4:type = ${5:\"p\"}}, ${6:...})",
+	description: "Points"
+};
+var pri = {
+	prefix: "print",
+	body: "print(${1:x}, ${2:...})",
+	description: "Print"
+};
+var qua = {
+	prefix: "quantile",
+	body: "quantile(${1:x}, ${2:probs = ${3:seq(0, 1, 0.25)}}, ${4:na.rm = ${5:FALSE}}, ${6:names = ${7:TRUE}}, ${8:type = ${9:7}}, ${10:...})",
+	description: "Quantile"
+};
+var reat = {
+	prefix: "read",
+	body: "read.table('${1:filename}'${2:, header = ${3:TRUE},  sep = '${4:\t}',  stringsAsFactors = ${5:FALSE}})",
+	description: "Read From File"
+};
+var rep = {
+	prefix: "rep",
+	body: "rep(${1:x}, ${2:...})",
+	description: "Rep"
+};
+var sam = {
+	prefix: "sample",
+	body: "sample(${1:x}, ${2:size}, ${3:replace = ${4:FALSE}}, ${5:prob = ${6:NULL}})",
+	description: "Sample"
+};
+var seq = {
+	prefix: "seq",
+	body: "seq(${1:from}, ${2:to}, ${3:by})",
+	description: "Sequence (from,to,by)"
+};
+var sor = {
+	prefix: "sort",
+	body: "sort(${1:x})",
+	description: "Sort"
+};
+var sou = {
+	prefix: "source",
+	body: "source(${1:'${2:}'}${3:, chdir = ${4:TRUE}})",
+	description: "Source"
+};
+var sd = {
+	prefix: "sd",
+	body: "sd(${1:x}${2:, na.rm=${3:FALSE}})",
+	description: "Standard deviation"
+};
+var tab = {
+	prefix: "table",
+	body: "table(${1:...})",
+	description: "Table"
+};
+var tap = {
+	prefix: "tapply",
+	body: "tapply(${1:X}, ${2:INDEX}, ${3:FUN = ${4:NULL}}, ${5:...}, ${6:simplify = ${7:TRUE}})",
+	description: "Tapply"
+};
+var uni = {
+	prefix: "unique",
+	body: "unique(${1:x}, ${2:incomparables = ${3:FALSE}}, ${4:...})",
+	description: "Unique"
+};
+var whi = {
+	prefix: "which",
+	body: "which(${1:x}, ${2:arr.ind = ${3:FALSE}}, ${4:useNames = ${5:TRUE}})",
+	description: "Which"
+};
+var wric = {
+	prefix: "write",
+	body: "write.csv(${1:x}, ${2:file = ${3:\"\"}}, ${4:append = ${5:FALSE}}, ${6:quote = ${7:TRUE}}, ${8:sep = ${9:\" \"}}",
+	description: "Write csv"
+};
+var fch = {
+	prefix: "fch",
+	body: "${1:file = }file.choose()${0:}",
+	description: "file.choose"
+};
+var Clustering = {
+	prefix: "clara",
+	body: [
+		"library(cluster)",
+		"clara(${1:xData}, k = ${2:k}, metric = ${3:metric}, stand = ${4:stand}, samples = ${5:samples})"
+	],
+	description: "Cluster data into k clusters (library: cluster)"
+};
+var loess = {
+	prefix: "loess",
+	body: [
+		"loess(${1:yCol} ~ {2:xCol}, data = ${3:data}, subset = ${4:subset}, weights = ${5:weights}, span = ${6:span},",
+		"degree = ${7:degree}, na.action = {8:na.action})"
+	],
+	description: "Local polynomial regression"
+};
+var Crosstabs = {
+	prefix: "xtabs",
+	body: [
+		"crossTable <- xtabs(~${1:varNames}, data= ${2:dataName}, exclude = c(${3:exclude}), subset = ${4:subset})",
+		"ftable(crossTable)  # print crosstabs",
+		"summary(crossTable) # chi-square tests"
+	],
+	description: "Crosstabulations for variables in a data frame"
+};
+var Matrix = {
+	prefix: "matrix",
+	body: "${1:outMatrix} <- matrix(data = ${2:dataVec}, nrow = ${3:nrow}, ncol = ${4:ncol}, byrow = ${5:byrow})",
+	description: "Create a matrix from a vector"
+};
+var elseif = {
+	prefix: "elseif",
+	body: [
+		"else if (${1:condition}) {",
+		"   ${2:selected}",
+		"}"
+	],
+	description: "Code snippet for 'else' conditional"
+};
+var vscodeRRSnippets = {
+	rug: rug,
+	app: app,
+	att: att,
+	cat: cat,
+	cum: cum,
+	cuma: cuma,
+	cumi: cumi,
+	daf: daf,
+	den: den,
+	det: det,
+	cut: cut,
+	exp: exp,
+	fac: fac,
+	fun: fun,
+	glm: glm,
+	grep: grep,
+	grep2: grep2,
+	grepl: grepl,
+	ins: ins,
+	km: km,
+	kr: kr,
+	lap: lap,
+	len: len,
+	lib: lib,
+	lin: lin,
+	dat: dat,
+	loa: loa,
+	mea: mea,
+	mer: mer,
+	nam: nam,
+	opt: opt,
+	ord: ord,
+	out: out,
+	pas: pas,
+	pas0: pas0,
+	plot: plot,
+	poi: poi,
+	pri: pri,
+	qua: qua,
+	reat: reat,
+	rep: rep,
+	sam: sam,
+	seq: seq,
+	sor: sor,
+	sou: sou,
+	sd: sd,
+	tab: tab,
+	tap: tap,
+	uni: uni,
+	whi: whi,
+	wric: wric,
+	fch: fch,
+	Clustering: Clustering,
+	"Linear model": {
+	prefix: "lm",
+	body: [
+		"lmObj <- lm(${1:yCol} ~ {2:xCol}, data = ${3:data}, subset = ${4:subset}, weights = ${5:weights}, na.action = ${6:na.action})",
+		"summary(lmObj)"
+	],
+	description: "Fit a linear model"
+},
+	"Linear model with plot": {
+	prefix: "lmplot",
+	body: [
+		"lmObj <- lm(${1:yCol} ~ {2:xCol}, data = ${3:data}, subset = ${4:subset}, weights = ${5:weights}, na.action = ${6:na.action})",
+		"summary(lmObj)",
+		"plot(lmObj, which=c(1)) # Plot residuals versus fitted"
+	],
+	description: "Fit a linear model and create a plot"
+},
+	loess: loess,
+	"Descriptive statistics summary": {
+	prefix: "summary",
+	body: "summary(${1:dataName}, digits = ${2:digits}, maxsum = ${3:maxsum})",
+	description: "Mean, median, 25th and 75th quartiles, min, and max of variables"
+},
+	Crosstabs: Crosstabs,
+	"Empty data frame (character)": {
+	prefix: "df2c",
+	body: "${1:dfname} <- data.frame(${2:a} = character(), ${3:b} = character())",
+	description: "Code snippet for an empty character data frame"
+},
+	"Empty data frame (numeric)": {
+	prefix: "df2n",
+	body: "${1:dfname} <- data.frame(${2:x} = numeric(), ${3:y} = numeric())",
+	description: "Code snippet for an empty numerical data frame"
+},
+	"Data frame": {
+	prefix: "dfv",
+	body: "${1:dfname} <- data.frame(${2:varlist})",
+	description: "Create a data frame from vectors"
+},
+	"Categorical variable": {
+	prefix: "factor",
+	body: "${1:outFactor} <- factor(x = ${2:dataVec}, levels = ${3:levels}, exclude = ${4:exclude})",
+	description: "Create a factor (categorical variable) from a vector"
+},
+	Matrix: Matrix,
+	"remove missings": {
+	prefix: "naomit",
+	body: "${1:newdataframe} <- na.omit(${2:dataframe})",
+	description: "Remove all rows with missing values from data frame"
+},
+	"Read CSV": {
+	prefix: "readc",
+	body: "${1:dfname} <- read.csv(file = \"${2:file}\", header = ${3|TRUE,FALSE|},  sep = \"${4|\\,,;|}\", row.names = ${5:NULL},  stringsAsFactors = ${6|FALSE,TRUE|})",
+	description: "Read a data table from a comma-separated file (CSV) and create a data frame"
+},
+	"else": {
+	prefix: "else",
+	body: [
+		"else {",
+		"   ${1:selected}",
+		"}"
+	],
+	description: "Code snippet for 'else' conditional"
+},
+	elseif: elseif,
+	"for": {
+	prefix: "for",
+	body: [
+		"for (${1:identifier} in ${2:collection}) {",
+		"   ${3:selected}",
+		"}"
+	],
+	description: "Code snippet for 'for' loop"
+},
+	"function": {
+	prefix: "function",
+	body: [
+		"${1:name} <- function(${2:parameters}) {",
+		"   ${3:selected}",
+		"}"
+	],
+	description: "Named function"
+},
+	"if": {
+	prefix: "if",
+	body: [
+		"if (${1:condition}) {",
+		"   ${2:selected}",
+		"}"
+	],
+	description: "Code snippet for 'if' conditional"
+},
+	"if-else block": {
+	prefix: "ifelse",
+	body: [
+		"if (${1:condition}) {",
+		"   ${2:selected}",
+		"} else {",
+		"   ",
+		"}"
+	],
+	description: "Code snippet for 'if-else' conditional block"
+},
+	"Region Start": {
+	prefix: "#region",
+	body: [
+		"#region $0"
+	],
+	description: "Folding Region Start"
+},
+	"Region End": {
+	prefix: "#endregion",
+	body: [
+		"#endregion"
+	],
+	description: "Folding Region End"
+},
+	"Shiny sidebar page": {
+	prefix: "shiny sidebar page",
+	body: [
+		"library(shiny)",
+		"",
+		"ui <- fluidPage(",
+		"    titlePanel(\"${1:title}\"),",
+		"    sidebarLayout(",
+		"        sidebarPanel(),",
+		"        mainPanel()",
+		"    )",
+		")",
+		"",
+		"server <- function(input, output, session) {",
+		"",
+		"}",
+		"",
+		"shinyApp(ui, server)$0"
+	],
+	description: "Shiny sidebar page"
+},
+	"Shiny observe event": {
+	prefix: "shiny observe event",
+	body: [
+		"observeEvent(${1:event}, {",
+		"    ${0}",
+		"})"
+	],
+	description: "Shiny observe event"
+},
+	"Shiny withProgress": {
+	prefix: "shiny withProgress",
+	body: [
+		"withProgress(message = \"${1:message}\", {",
+		"${0}",
+		"})"
+	],
+	description: "Shiny withProgress"
+},
+	"Shiny module": {
+	prefix: "shiny module",
+	body: [
+		"${1:name}ui <- function(id) {",
+		"    ns <- NS(id)",
+		"    tagList(",
+		"    ${0}",
+		"        )",
+		"    }",
+		"",
+		"${1:name} <- function(input, output, session) {",
+		"    ns <- session\\$ns",
+		"}",
+		"",
+		"# Copy in UI",
+		"#${1:name}ui(\"${1:name}ui\")",
+		"",
+		"# Copy in server",
+		"#callModule(${1:name}, \"${1:name}ui\")"
+	],
+	description: "Shiny module"
+}
+};
+
+export { Clustering, Crosstabs, Matrix, app, att, cat, cum, cuma, cumi, cut, daf, dat, vscodeRRSnippets as default, den, det, elseif, exp, fac, fch, fun, glm, grep, grep2, grepl, ins, km, kr, lap, len, lib, lin, loa, loess, mea, mer, nam, opt, ord, out, pas, pas0, plot, poi, pri, qua, reat, rep, rug, sam, sd, seq, sor, sou, tab, tap, uni, whi, wric };