jonovik

# pacman::p_load(tidyverse)

gg_to_clipboard <- function(plot = last_plot(), width = 1000, height = 600, pointsize = 40){
    win.graph(width = width, height = height, pointsize = pointsize)
    plot %>% print()
    savePlot("clipboard", type = "wmf")
    dev.off()
}

# ggplot(data = mtcars, aes(x = mpg)) + geom_histogram()

jonovik

# -*- coding: utf-8 -*-
"""
    codegen
    ~~~~~~~

    Extension to ast that allow ast -> python code generation.

    :copyright: Copyright 2008 by Armin Ronacher.
    :license: BSD.
"""