-
Notifications
You must be signed in to change notification settings - Fork 0
/
Schmiercode.r
81 lines (69 loc) · 1.66 KB
/
Schmiercode.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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
library(R6)
library(dplyr)
test <- R6Class(
"DatabaseConnections",
public = list(
initialize = function(.name, .value)
{
self$set("active", "getx2", 4)
}
),
active = list(
test2 = function() "hello world"
),
private = list(
a = 4
)
)
connect_db <- function()
{
db <- dbconnection$new("statup")
DatabaseModel <- R6Class(
"DatabaseModel",
public = list(),
active = list(),
private = list()
)
for(table in src_tbls(statup$getdb))
DatabaseModel$set("public", table, tbl(db$getdb, table))
DatabaseModel$new()
}
A <- connect_db()
tbl_active <- R6Class(
public = list(
initialize = function(.tblname)
{
private$p_dbmodel <- dbconnection$new("statup")
private$p_tblname <- .tblname
private$p_tbl <- tbl(private$p_dbmodel$getdb, .tblname)
}
),
active = list(
get = function() private$p_tbl,
set = function(.value) {},
update = function(.value)
{
DatabaseWriter(.result = value,
.dbmodel = private$p_dbmodel,
.tblname = private$p_tblname,
.chunksize = 1e5,
.n = NULL,
.ConstructQuery = ConstructUpdateQuery)
},
replace = function(.value)
{
DatabaseWriter(.result = value,
.dbmodel = private$p_dbmodel,
.tblname = private$p_tblname,
.chunksize = 1e5,
.n = NULL,
.ConstructQuery = ConstructReplaceQuery)
}
),
private = list(
p_dbmodel = NULL,
p_tblname = NULL,
p_tbl = NULL
)
)
device_list <- tbl_active$new("device_list")