Gregor Aisch gka

## example.R
library(ggplot2)
library(emoGG)

source("imgcat.R")

p <- ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_emoji(emoji="1f337")
imgcat(print(p))

## berlin-wall.geojson

      
              1 file
            
          
              0 forks
            
          
              1 comment
            
          
              2 stars
            
          
                CliffordAnderson
                / berlin-wall.geojson
            
            
              Last active
              November 13, 2018 09:32
            
              
                Berlin Wall GeoJSON converted from Open Street Maps
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## csv.js
const DELIM = ','
const QUOTE = '"'

const MAX_LENGTH = 9
const tokenRainbow = state => `string num${state.num}`
const tokenPlain = () => 'string'

CodeMirror.defineMode('csv', function modeCsv(opts, modeOpts) {
    let { delimiter = DELIM, rainbow = false } = modeOpts
    let token = rainbow ? tokenRainbow : tokenPlain
	library(ggplot2)
	library(emoGG)

	source("imgcat.R")

	p <- ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) + geom_emoji(emoji="1f337")
	imgcat(print(p))
	const DELIM = ','
	const QUOTE = '"'

	const MAX_LENGTH = 9
	const tokenRainbow = state => `string num${state.num}`
	const tokenPlain = () => 'string'

	CodeMirror.defineMode('csv', function modeCsv(opts, modeOpts) {
	let { delimiter = DELIM, rainbow = false } = modeOpts
	let token = rainbow ? tokenRainbow : tokenPlain