forked from yhu20/shiny-explorer
-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.R
23 lines (20 loc) · 954 Bytes
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
library(shiny)
library(shinyAce)
library(rpivotTable) # install_github(c("ramnathv/htmlwidgets", "smartinsightsfromdata/rpivotTable"))
data(iris)
data(airquality)
clear.labels <- function(x) {
if(is.list(x)) {
for(i in 1 : length(x)) class(x[[i]]) <- setdiff(class(x[[i]]), 'labelled')
for(i in 1 : length(x)) attr(x[[i]],"label") <- NULL
}
else {
class(x) <- setdiff(class(x), "labelled")
attr(x, "label") <- NULL
}
return(x)
}
# MAP_WMH_Descriptive_20180322 <- readRDS("/Users/khanoa/box/VMAC BIOSTAT/MAP WMH Descriptive (AJ)/data/MAP_WMH_Descriptive_20180322.rds")
# MAP_WMH_Descriptive_20180322 <- clear.labels(MAP_WMH_Descriptive_20180322)
# # map.df <- map.df[map.df$epoch == 1, c("map.id", "epoch", "enrolled.dx.factor", grep("^np.*", names(map.df), v = T)[1:20], grep("^csf.*", names(map.df), v = T)[1:20]), ]
# MAP_WMH_Descriptive_20180322[, grep("date|notes", names(MAP_WMH_Descriptive_20180322), v = T)] <- NULL