code-entities/randomScripts.R at master · erichhuang/code-entities · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# randomScripts.R

# SAVE CODE ENTITY ONE "GGHEAT2"
ggheat2Layer <- Code(list(name = "ggheat2.R",
                                parentId = 274060))
ggheat2Layer <- createEntity(ggheat2Layer)
ggheat2Layer <- addFile(ggheat2Layer, "ggheat2.R")
ggheat2Layer <- storeEntity(ggheat2Layer)

# SAVE CODE ENTITY TWO "MULTIPLOT"
multiPlotLayer <- Code(list(name = "mulitPlot.R",
                          parentId = 274060))
multiPlotLayer <- createEntity(multiPlotLayer)
multiPlotLayer <- addFile(multiPlotLayer, "multiPlot.R")
multiPlotLayer <- storeEntity(multiPlotLayer)

# SAVE CODE ENTITY THREE "GGKM"
ggkmLayer <- Code(list(name = "ggkm.R",
                            parentId = 274060))
ggkmLayer <- createEntity(ggkmLayer)
ggkmLayer <- addFile(ggkmLayer, "ggkm.R")
ggkmLayer <- storeEntity(ggkmLayer)