forked from sullivannicole/tc.sensors
-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
107 lines (107 loc) · 2.24 KB
/
.Rhistory
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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
library(tc.sensors)
?pull_sensor
library(tc.sensors)
?pull_sensor
library(tc.sensors)
?pull_sensor
library(tc.sensors)
?pull_sensor
?mean
?mutate
??mutate
?tidyverse
?gml
?glm
library(tc.sensors)
?pull_sensor
devtools::document()
devtools::document()
devtools::document()
devtools::document()
devtools::document()
?pull_configuration
devtools::document()
devtools::document()
?pull_configuration
devtools::document()
?pull_configuration
devtools::document()
?pull_sensors
?pull_configuration
devtools::document()
?pull_configuration
install.packages("usethis")
usethis::use_lifecycle_badge()
?use_lifecycle_badge
library(sparklyr)
sc <- spark_connect(method = "databricks")
install.packages("Rcpp")
install.packages("Rcpp")
install.packages("Rcpp")
library(Rcpp)
sc <- spark_connect(method = "databricks")
library(sparklyr)
sc <- spark_connect(method = "databricks")
install.packages("SparkR")
library(Rcpp)
sc <- spark_connect(method = "databricks")
library(SparkR)
sc <- spark_connect(method = "databricks")
spark_install_find()
sc <- sparklyr::spark_connect(method = "databricks")
detach(SparkR)
library(sparklyr)
sc <- spark_connect(method ="databricks")
?spark_connect
spark_install_find()
sc <- spark_connect(method ="databricks", version = "2.3.3")
install.packages("sparklyr")
install.packages("sparklyr")
spark_install_find()
library(sparklyr)
spark_install_find()
sc <- spark_connect(method ="databricks")
6/5
6/5
15700/11
1427.273*5
7136.365/15700
.45/.55
.55/.45
15700/11
1427*5
96-9.6
3^3
3*3*6
ensure_group_vars <- function(loc, data, notify = TRUE) {
group_loc <- match(group_vars(data), names(data))
missing <- setdiff(group_loc, loc)
if (length(missing) > 0) {
vars <- names(data)[missing]
if (notify) {
inform(glue(
"Adding missing grouping variables: ",
paste0("`", names(data)[missing], "`", collapse = ", ")
))
}
loc <- c(set_names(missing, vars), loc)
}
loc
}
select.data.frame <- function(.data, ...) {
loc <- tidyselect::eval_select(expr(c(...)), .data)
loc <- ensure_group_vars(loc, .data, notify = TRUE)
set_names(.data[loc], names(loc))
}
select.list <- function(.data, ...) {
abort("`select()` doesn't handle lists.")
}
select <- function(.data, ...) {
UseMethod("select")
}
obj <- data.frame(A = c(1:3), B = c(1:3))
View(obj)
select(obj, A)
obj[[A]]
obj[[1]]
obj[[2]]