oganm

library(magrittr)
library(dplyr)
library(homologene) 
library(gemmaAPI) #  github.com/pavlidisLab/gemmaAAPI.R
library(markerGeneProfile) # github.com/pavlidisLab/markerGeneProfile
data("mouseMarkerGenesCombined")

# get mouse homologues of the hitlist
hitlist = readxl::read_xlsx('gene of interest.xlsx',col_names = FALSE) %>% 
  unlist %>% human2mouse %$% mouseGene

oganm

# this is to get data from a single git repository

library(dplyr)
library(anytime)
library(patchwork)
library(ggplot2)

commits = git2r::commits()

commitTime= commits %>% sapply(function(x){x$author$when$time}) %>% anytime

oganm

getGithubFile = function(githubPath,branch = 'master', downloadPath = NULL,token = NULL){
    if(is.null(downloadPath)){
        downloadPath = tempfile()
    }
    
    path = strsplit(githubPath,'/')[[1]]
    file = paste(path[3:length(path)], collapse = '/')
    contents = gh::gh('GET /repos/:username/:reponame/contents/:dir?ref=:branch',
                  username = path[1],
                  reponame = path[2],

oganm

library(dplyr)

# available names stolen from https://github.com/moby/moby/blob/master/pkg/namesgenerator/names-generator.go----------------------
left = c("admiring",
         "adoring",
         "affectionate",
         "agitated",
         "amazing",
         "angry",
         "awesome",

oganm

library(OpenImageR)
library(oro.dicom)
library(dplyr)
library(magrittr)
library(magick)

dicompath = '/home/omancarci/Dropbox/MRI'

imageFiles = list.files(file.path(dicompath,'DICOM'),recursive = TRUE,full.names = TRUE)

oganm

library(dplyr)

diamonds = ggplot2::diamonds

filterBy = 'color'
diamonds %>% filter(!!rlang::sym(filterBy) == 'E')

diamonds %>% group_by(!!rlang::sym(filterBy))

diamonds %>% mutate(!!rlang::sym('new_col'):='yes')

oganm

library(dplyr)


generatePatterns = function(patterns, # final outputs here 
                            helperPatterns = NULL, # intermediate patterns that won't be returned here
                            .open= '{', .close = '}'){
    
    for (i in seq_along(helperPatterns)){
        helperPatterns[[i]] = with(helperPatterns[1:i],
                                   {glue::glue(helperPatterns[[i]],

oganm

for i in pairs(table) do print(i) end -- list things in table

oganm

library(rayshader)
library(ambient)


k = 8
m = noise_perlin(dim = c(2^k,2^k),octaves = 9)
mToMap(m)

m = noise_simplex(c(2^k,2^k),fractal = 'fbm',octaves = 4,lacunarity = 2,gain = .5,frequency = .01)

oganm

library(cranlogs)
library(dplyr)

allPackages = available.packages() %>% rownames

groups = cut(seq_along(allPackages), breaks = seq(0,length(allPackages),20)) %>% {.=as.character(.);.[is.na(.)]='last';factor(.,levels = unique(.))}
package_groups = split(allPackages,groups)


package_groups %>% lapply(function(x){