plot(1:10)
yonicd
/ demo_carbonate_reprex.md
Created
October 28, 2018 16:39
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # dummy functions ---- | |
| f <- function() { | |
| testthat::expect_is(data.frame(),'data.frame') | |
| } | |
| f1 <- function() { | |
| testthat::expect_is(data.frame(),'list') | |
| } |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| burrow_find <- function(x,parent,regex = FALSE){ | |
| if(grepl('(\\[|\\])',parent)){ | |
| nx <- as.numeric(gsub('(\\[|\\])','',parent)) | |
| }else{ | |
| if(regex){ | |
| nx <- grep(parent,names(x)) |
yonicd
/ remotes_patch.R
Last active
February 23, 2018 13:57
install R packages from github and keep the source install file
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| remotes_patch <- function(destdir=getwd()){ | |
| #patch install_remote | |
| install_remote_keep_source <- remotes:::install_remote | |
| install_remote_body <- body(install_remote_keep_source) | |
| install_remote_body[[6]] <- quote(on.exit({ | |
| l <- list(...) | |
| devtools::build(source,path = eval(enquote(l$destdir))) | |
| unlink(source, recursive = TRUE) | |
| }, add = TRUE)) |
yonicd
/ .block
Last active
January 6, 2018 03:15
— forked from timelyportfolio/.block
alternate version of market quilt
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| license: mit | |
| height: 600 |
yonicd
/ github_traffic.R
Last active
October 3, 2017 02:11
Function to scrape github to combine your traffic across repositories into one plot
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(RSelenium) | |
| library(XML) | |
| library(ggplot2) | |
| library(reshape2) | |
| library(plyr) | |
| library(dplyr) | |
| gh_user <- '<your github login name>' | |
| gh_pass <- '<your github login password>' |
yonicd
/ annotation-ticks.R
Created
July 14, 2017 19:53
minor tick marks ggproto layer for log,log10, identity scales on independent sides
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| #' @title Annotation: tick marks | |
| #' @description This annotation adds tick marks to an axis | |
| #' @export | |
| #' @inheritParams ggplot2::annotation_logticks | |
| #' @param ticks_per_base integer, number of minor ticks between each pair of major ticks, Default: base-1 | |
| #' @param delog boolean, if an idenity transformation is needed use set to TRUE, Default: FALSE | |
| #' @examples | |
| #' library(ggplot2) | |
| #' library(grid) | |
| #' |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(ggraph) | |
| library(dplyr) | |
| library(d3Tree) | |
| scales2df<-function(pkg){ | |
| d<-ls(name = sprintf('package:%s',pkg),pattern = '^scale_(.*?)_(.*?)$') | |
| d1<-sapply(d,function(x){grep('_scale|scale_',as.list(body(x)),value=TRUE)}) | |
| d.fun<-sapply(d1,function(a) gsub('sc <- ','',gsub('\\((.*?)$','',a))) | |
yonicd
/ selectizegrep
Last active
June 24, 2017 04:37
script to run selectize with grep functionality and clean up the created searches from the option list
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| shinyApp( | |
| ui = fluidPage( | |
| selectizeInput(inputId = "variable", | |
| label = "Variable:", | |
| choices = split(names(iris),gsub('[_.]',' ',names(iris))), | |
| options=list(multiple=TRUE,create = TRUE)), | |
| checkboxGroupInput(inputId = 'grep',label = 'regex options', | |
| choices = c('Enable'='enbl', |