NOT functions, vector_shuffle, data_pop, and init function amongst many great new functions in the quickcode R package

Obinna (OBI) Obianom

2023-09-02

A compilation of NOT functions + some useful functions to simply R programming, keep the console neat, and save memory usage

Install

devtools::install_github("oobianom/quickcode")

install.packages("quickcode") # when published

List of many cool functions to use

%nin%
add.header
add.snippet.clear
add_key
clean
refresh
cv.gm
data_pop
data_pop_filter
data_push
data_shuffle
duplicate
ai.duplicate
g.mean
header.rmd
inc
plus
minus
init
insertInText
libraryAll
list_push
not.data
not.duplicated
not.empty
not.environment
not.integer
not.logical
not.null
not.numeric
not.vector
number
sample_by_column
sd.gm
vector_pop
vector_push
vector_shuffle

Let me show you a few R Examples

#initialize one or more variables

print(g) # Error: object 'g' not found

init(g,h,i,o)
print(g) # g = NULL
print(h) # h = NULL

init(r,y,u,b,value = 5)
print(r) # r = 5
print(b) # b = 5
print(z) # Error: object 'z' not found

#add keys to a vector content for use in downstream processes

ver1 <- c("Test 1","Test 2","Test 3")
add_key(ver1)

for(i in ver1){
message(sprintf("%s is the key for this %s", i$key, i$value))
}


#check if the entry is not integer

not.integer(45) #returns TRUE
not.integer(45.) #returns TRUE
not.integer(45L) #returns FALSE

not.null(45L) #returns TRUE
not.null(h<-NULL) #returns FALSE



#clear R environment, set directory and load data
#note: the code below also automatically loads the quickcode library so that all other functions within package can be used easily


quickcode::refresh()
quickcode::clean()

#or combine with setwd and source and load

quickcode::clean(
  setwd = "/wd/",
  source = c(
  "file.R",
  "file2.R"
  ),
  load = c(
  "data.RData",
  "data2.RData"
  )
)



#shorthand for not in vector

p1 <- 4
p2 <- c(1:10)

p1 %nin% p2




#add to a vector in one code

p1 <- c(6,7,8)
p2 <- c(1,2,3)

vector_push(p1,p2)

print(p1)



#add to a data frame in one code

p1 <- data.frame(ID=1:10,ID2=1:10)
p2 <- data.frame(ID=11:20,ID2=21:30)

data_push(p1,p2,"rows")

print(p1)


#remove from a vector in one code

p1 <- c(6,7,8,1,2,3)

vector_pop(p1)

print(p1)





#remove from a data frame in one code

p1 <- data.frame(ID=1:10,ID2=1:10,CD=11:20,BD=21:30)

data_pop(p1) #remove last row

print(p1)

data_pop(p1,5) #remove last 5 rows

print(p1)



#remove columns from a data frame in one code

p1 <- data.frame(ID=1:10,ID2=1:10,ID4=1:10,CD=11:20,BD=21:30)

data_pop(p1,which = "cols") #remove last column

print(p1)

data_pop(p1,2,which = "cols") #remove last 2 columns

print(p1)

data_pop(p1,1,which = "cols") #remove last 1 column and vectorise

print(p1)

#load libraries

quickcode::libraryAll(
  dplyr,
  r2resize,
  ggplot2
)

Check out some examples at quickcode.obi.obianom.com