-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathutil.R
37 lines (26 loc) · 2.53 KB
/
util.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
`%+%` <- function(a, b) paste0(a, b)
`%ni%` <- Negate(`%in%`)
viewTable <- function(table) utils::View(table)
isColExist <- function(table, colname){
if (colname %in% names(table)) {return(TRUE)} else {return(FALSE)}
}
FRAMES = c("Frame0", "Frame001", "Frame002", "Frame003", "Frame004", "Frame005", "Frame006", "Frame007",
"Frame008", "Frame009" , "Frame010", "Frame011", "Frame012", "Frame013", "Frame014", "Frame015", "Frame016",
"Frame017", "Frame018" , "Frame019" , "Frame020" , "Frame021" , "Frame022" , "Frame023", "Frame024" , "Frame025" ,
"Frame026", "Frame027" , "Frame028", "Frame029", "Frame030", "Frame031", "Frame032", "Frame033", "Frame034",
"Frame035", "Frame036" , "Frame037", "Frame038", "Frame039", "Frame040", "Frame041", "Frame042", "Frame043",
"Frame044", "Frame045" , "Frame046", "Frame047", "Frame048", "Frame049", "Frame050", "Frame051", "Frame052",
"Frame053", "Frame054" , "Frame055", "Frame056", "Frame057", "Frame058", "Frame059", "Frame060", "Frame061",
"Frame062", "Frame063" , "Frame064", "Frame065", "Frame066", "Frame067", "Frame068", "Frame069", "Frame070",
"Frame071", "Frame072" , "Frame073", "Frame074", "Frame075", "Frame076", "Frame077", "Frame078", "Frame079",
"Frame080", "Frame081" , "Frame082", "Frame083", "Frame084", "Frame085", "Frame086", "Frame087", "Frame088",
"Frame089", "Frame090" , "Frame091", "Frame092", "Frame093", "Frame094" , "Frame095", "Frame096", "Frame097",
"Frame098", "Frame099" , "Frame100")
getColumIndex <- function(table, colname){
index = which( colnames(table)==colname)
return(index)
}
renameColumnnLabel <-function(df,name,newName){
colnames(df)[colnames(df)==name] <- newName
return(df)
}