mirror of
https://github.com/dchakro/shared_Rscripts.git
synced 2026-05-17 09:12:16 -07:00
87 lines
2.5 KiB
R
87 lines
2.5 KiB
R
snippet comment_date
|
|
`r paste("#", date(), "------------------------------\n")`
|
|
|
|
snippet mat
|
|
matrix(${1:data}, nrow = ${2:rows}, ncol = ${3:cols})
|
|
|
|
snippet elif
|
|
if (${1:condition}) {
|
|
${0}
|
|
} else if (${1:condition}) {
|
|
${0}
|
|
} else {
|
|
${0}
|
|
}
|
|
|
|
snippet fun
|
|
${1:name} <- function(${2:variables}) {
|
|
## Description:
|
|
## Input:
|
|
## Output:
|
|
|
|
${0}
|
|
}
|
|
|
|
snippet gsubstitute
|
|
gsub("${1:Find}","${2:Replace}",${3:variable}, fixed = T)
|
|
|
|
snippet replaceText
|
|
regmatches(${1:String}, gregexpr(pattern="${2:Find}", text =${1:String}, fixed = T) <- "${3:newText}"
|
|
|
|
snippet not%
|
|
'%nin%' <- Negate('%in%')
|
|
|
|
snippet split
|
|
data.table::as.data.table(stringi::stri_split_fixed(str = ${1:String}, pattern = "${2:pattern}", simplify = T))
|
|
|
|
snippet find_matches
|
|
regmatches(${1:String}, gregexpr(pattern="${2:Find}",text =${1:String}, fixed = T)
|
|
|
|
snippet install
|
|
to_install <- c("${1:pack1}") ## Set packages to install here and run
|
|
if (unname(Sys.info()["sysname"]) == "Darwin") {
|
|
CPU_cores <-
|
|
as.integer(system(command = "sysctl -n hw.physicalcpu", intern = T))
|
|
# logical cores
|
|
# CPU_cores <- system("sysctl -n hw.ncpu")
|
|
} else if (unname(Sys.info()["sysname"]) == "Linux") {
|
|
CPU_cores <- as.integer(system(command = "nproc", intern = T))
|
|
}
|
|
options(Ncpus = CPU_cores)
|
|
utils::setRepositories(ind = c(1, 2, 3))
|
|
missing_packages <-
|
|
to_install[!(to_install %in% installed.packages()[, "Package"])]
|
|
if (length(missing_packages))
|
|
install.packages(missing_packages, Ncpus = getOption("Ncpus", 1L))
|
|
rm(missing_packages, to_install, CPU_cores)
|
|
|
|
snippet roundUp
|
|
source("https://raw.githubusercontent.com/dchakro/shared_Rscripts/master/roundUp.R")
|
|
roundUp(x = ${1:number}, to = ${2:10})
|
|
|
|
snippet ggtheme
|
|
library(ggplot2)
|
|
source('https://raw.githubusercontent.com/dchakro/ggplot_themes/master/DC_theme_generator.R')
|
|
customtheme <- DC_theme_generator(type = "L")
|
|
|
|
|
|
snippet ggarea
|
|
ggplot(data=${1:longDF}, aes(x=${2:orderedVar2}, y=${3:plottingValue})) +
|
|
geom_area(alpha=1, color="black", aes(fill=${4:fill.order}), position=position_fill(reverse = T)) +
|
|
ylab("Percentage of total")
|
|
|
|
snippet percentScale
|
|
scale_y_continuous(breaks = seq(0, 1, by=0.25),labels = paste((seq(0, 1, by = .25)*100), "%", sep=""))
|
|
|
|
snippet bench
|
|
bmark <- microbenchmark(
|
|
"${1:method1}" = {
|
|
# Describe actions
|
|
}
|
|
},
|
|
"${2:method2}" = {
|
|
# Describe actions
|
|
}
|
|
}, times = 5 )
|
|
source("https://raw.githubusercontent.com/dchakro/shared_Rscripts/master/summarySE.R")
|
|
DF <- summarySE(bmark,measurevar = "time",groupvars = "expr",statistic = "mean")
|