benmarwick

#'  Bagplot
#' 
#' The bag geom is useful for graphical summaries of scatterplots. It 
#' is effective at showing the  location, spread, skewness, and 
#' outliers of a data set.
#'  
#' A bagplot is a bivariate generalization of the well known boxplot. It
#' was proposed by Rousseeuw, Ruts, and Tukey. This geom plots bagplots that 
#' are very similar to the one described in Rousseeuw et al. and
#' uses code from their bagplot functions in the aplpack pacakge. 

gluc

library(shiny)
library(shinyjs)



# Get table metadata. For now, just the fields
# Further development: also define field types
# and create inputs generically
GetTableMetadata <- function() {
  fields <- c(id = "Id", 

klmr

A little experiment using restarts.

(And while we’re at it, let’s torture R’s syntax a little.)

![screenshot][]

In the following we will be using R’s “restarts” feature to implement the state machine that drives generators in languages such as Python. Generators allow lazily generating values on demand: a consumer invokes a generator, and consumes values as they are produced. A new value is only produced once the previous one has been consumed.

john-guerra

license: mit

emitanaka

<script>
(function() {
  var divHTML = document.querySelectorAll(".details-open");
  divHTML.forEach(function (el) {
    var preNodes = el.getElementsByTagName("pre");
    var outputNode = preNodes[1];
    outputNode.outerHTML = "<details open class='output'><summary>Output</summary>" + outputNode.outerHTML + "</details>";
  })
})();
(function() {

trestletech

library(shiny)
library(dplyr)
library(lubridate)

# Load libraries and functions needed to create SQLite databases.
library(RSQLite)
library(RSQLite.extfuns)
saveSQLite <- function(data, name){
  path <- dplyr:::db_location(filename=paste0(name, ".sqlite"))

ikashnitsky

#===============================================================================
# 2019-07-19-- ikashnitsky.github.io
# Reproduce Figure 2 from http://doi.org/10.1007/s10708-018-9953-5
# Ilya Kashnitsky, ilya.kashnitsky@gmail.com
#===============================================================================

library(tidyverse)
library(hrbrthemes); import_roboto_condensed()

# the data as tribble

dpseidel

Default ggplot2 aesthetics by geom.

geom	alpha	angle	colour	family	fill	fontface	height	hjust	lineheight	linetype	shape	size	stroke	vjust	weight	width	xmax	xmin	ymax	ymin
GeomAbline	NA		black							1		0.5
GeomAnnotationMap	NA		NA		grey20					1		0.5
GeomArea	NA		NA		grey20					1		0.5
GeomBar	NA		NA		grey35					1		0.

moodymudskipper

# run from R GUI or you might have methods registered by IDE

# first method scrape S3 method tables, classes with no methods are not found
# second method parses code to find `class(foo) <- bar` lines and extracts string litterals if found, we could be a bit smarter there
#   and find more, but that will still not be exhaustive, because we have things like `class(x) <- cl` and we'd have to check the code
#   to see what `cl` is.
# we could also check if some objects are built with `structure`
# calls to `inherits` might also be checked
# The C code should also be inspected or we won't find for instance the "error" or "try-error" classes.

yutannihilation

library(ggplot2)

# functions -----------------------------------------------

geom_liquid_area <- function(mapping = NULL, data = NULL, stat = "identity",
                             position = "stack", na.rm = FALSE, show.legend = NA,
                             inherit.aes = TRUE, ...) {
  layer(
    data = data,