-
Notifications
You must be signed in to change notification settings - Fork 0
/
.Rhistory
137 lines (137 loc) · 3.98 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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
use_mit_license()
usethis::use_mit_license()
usethis::use_package('httr')
usethis::use_package('jsonlite')
usethis::use_build_ignore("devtools_history.R")
usethis::use_package('dplyr') # Use dplyr package
usethis::use_pipe(export = TRUE) # Use magrittr pipe
usethis::use_testthat()
devtools::test()
usethis::use_package('rlang') # Use rlang package
phis_public_test <- list(
host = "http://opensilex.org:8084/rest",
user = "admin@opensilex.org",
password = "admin",
experiment_uri = "http://www.phenome-fppn.fr/m3p/ARCH2017-03-30",
scientific_object_type = "vocabulary:Plant"
)
configuration <- list(
host = "http://opensilex.org:8084/rest",
user = "admin@opensilex.org",
password = "admin",
experiment_uri = "http://www.phenome-fppn.fr/m3p/ARCH2017-03-30",
scientific_object_type = "vocabulary:Plant"
)
opensilexR::get_scientific_object_modalities(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type)
)
library(opensilexR)
library(opensilexR)
opensilexR::get_scientific_object_modalities(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type)
)
opensilexR::get_data(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type
)
opensilexR::get_data(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type
)
library(opensilexR)
opensilexR::get_data(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type
)
configuration <- list(
host = "http://opensilex.org:8084/rest",
user = "admin@opensilex.org",
password = "admin",
experiment_uri = "http://www.phenome-fppn.fr/m3p/ARCH2017-03-30",
scientific_object_type = "vocabulary:Plant"
)
attach(configuration)
token <- opensilexR::get_token(
host = host,
user = user,
password = password
)
call1 <- paste0(host, "/core/scientific_objects/export")
post_result <-
httr::POST(
call1,
body = paste0(
'{
"experiment": "', experiment_uri, '",
"factor_levels": [],
"name": "",
"order_by": ["name=asc"],
"rdf_types": ["', scientific_object_type, '"]
}'
),
httr::add_headers(
Authorization = token,
`Content-Type` = "application/json"
)
)
class(post_result)
usethis::use_package('logging')
library(opensilexR)
opensilex::parse_status
opensilexR::parse_status
library(opensilexR)
library(opensilexR)
configuration <- list(
host = "http://opensilex.org:8084/rest",
user = "admin@opensilex.org",
password = "admin",
experiment_uri = "http://www.phenome-fppn.fr/m3p/ARCH2017-03-30",
scientific_object_type = "vocabulary:Plant"
)
os_modalities <- opensilexR::get_scientific_object_modalities(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type
)
os_modalities
View(os_modalities)
configuration <- list(
host = "http://opensilex.org:8084/rest",
user = "guest@opensilex.org",
password = "guest",
experiment_uri = "http://www.phenome-fppn.fr/m3p/ARCH2017-03-30",
scientific_object_type = "vocabulary:Plant"
)
os_modalities <- opensilexR::get_scientific_object_modalities(
host = configuration$host,
user = configuration$user,
password = configuration$password,
experiment_uri = configuration$experiment_uri,
scientific_object_type = configuration$scientific_object_type
)
summary(os_modalities)
head(os_modalities)
devtools::check()
remove.packages("opensilexR")
devtools::check()
devtools::document()
library(opensilexR)