Buck9195/shared_Rscripts
1
0
Fork 0
mirror of https://github.com/dchakro/shared_Rscripts.git synced 2026-05-17 09:12:16 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes

Browse source
This commit is contained in:
dchakro 2022-07-06 12:36:24 +03:00
parent 502cd455a9
commit dcbc8f4d82
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
r.snippets.R
View file

@ -11,17 +11,16 @@ snippet beginr
library(data.table) library(data.table)
${0} ${0}
snippet comment_date snippet comment_date
`r paste("#", date(), "------------------------------\n")` `r paste("#", date(), "------------------------------\n")`
${0} ${0}
snippet removeObjects snippet rmObj
rm(list=ls()[!ls() %in% c("${1:Obj1}","${2:Fun2}")]) rm(list=ls()[!ls() %in% c("${1:Obj1}","${2:Fun2}")])
${0} ${0}
snippet removeColumns snippet rmCol
${1:DF}[,!colnames(${1:DF}) %in% ${2:columnsToRemove}] ${1:DF}[,!colnames(${1}) %in% ${2:columnsToRemove}]
${0} ${0}
snippet mat snippet mat
@ -31,7 +30,7 @@ snippet mat
snippet elif snippet elif
if (${1:condition}) { if (${1:condition}) {
${0} ${0}
} else if (${1:condition}) { } else if (${2:condition}) {
${0} ${0}
} else { } else {
${0} ${0}
@ -61,12 +60,12 @@ snippet gsubstitute
${0} ${0}
snippet replaceText snippet replaceText
regmatches(${1:String}, gregexpr(pattern="${2:Find}", text =${1:String}, fixed = T) <- "${3:newText}" regmatches(${1:String}, gregexpr(pattern="${2:Find}", text =${1}, fixed = T) <- "${3:newText}"
${0} ${0}
snippet not% snippet not%
'%nin%' <- Negate('%in%') '%nin%' <- Negate('%in%')
${0} ${1:var1} %in% ${2:var2}
snippet split snippet split
data.table::as.data.table(stringi::stri_split_fixed(str = ${1:String}, data.table::as.data.table(stringi::stri_split_fixed(str = ${1:String},
@ -75,12 +74,12 @@ snippet split
${0} ${0}
snippet find_matches snippet find_matches
regmatches(${1:String}, gregexpr(pattern="${2:Find}",text =${1:String}, fixed = T) regmatches(${1:String}, gregexpr(pattern="${2:Find}",text =${1}, fixed = T)
${0} ${0}
snippet roundUp snippet roundUp
source("https://raw.githubusercontent.com/dchakro/shared_Rscripts/master/roundUp.R") source("https://raw.githubusercontent.com/dchakro/shared_Rscripts/master/roundUp.R")
roundUp(x = ${1:number}, to = ${2:10}) roundUp(x = ${1:999}, to = ${2:10})
${0} ${0}
snippet ggtheme snippet ggtheme