forked from alphacastio/alphacast-r
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path.Rhistory
512 lines (512 loc) · 23.8 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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key){
url <- "https://api.alphacast.io/repositories"
if isTRUE(private) {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key) {
url <- "https://api.alphacast.io/repositories"
if isTRUE(private) {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key) {
url <- "https://api.alphacast.io/repositories"
if private {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key) {
url <- "https://api.alphacast.io/repositories"
if private{
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key) {
url <- "https://api.alphacast.io/repositories"
if (isTRUE(private)) {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo("REPO KELOKE", "test de repo re perro", slug = "repo420", alphacast_api_key)
create_repo("REPO KELOKE", "test de repo re perro", slug = "repo420", alphacast_api_key = alphacast_api_key)
create_repo <- function(repo_name, description, private = TRUE, slug, alphacast_api_key) {
url <- "https://api.alphacast.io/repositories"
if (isTRUE(private)) {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "Private",
"slug" = slug)
} else {
form <- list(
"name" = repo_name,
"description" = description,
"privacy" = "Public",
"slug" = slug)
}
r <- httr::POST(url = url, body = form, config = httr::authenticate(user = alphacast_api_key, password = ""))
httr::content(r)
}
create_repo("REPO KELOKE", "test de repo re perro", slug = "repo420", alphacast_api_key = alphacast_api_key)
create_repo("REPO KELOKE privado", "test de repo re perro pero privadp", slug = "repo420priv", alphacast_api_key = alphacast_api_key, private = FALSE)
library(transporteAR)
sistau <- getSistau(annual = FALSE)
library(dplyr)
sistau <- getSistau(annual = FALSE)
colnames(sistau)
colnames(sistau) <- c("Year", "Entity", "Monto SISTAU")
sistau$Entity <- "Argentina"
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios SISTAU",
"repositoryId" = 627)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
library(httr)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
dataset_id <- 6827
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
write.csv(sistau)
r <- PUT(url, body = list(data= upload_file(write.csv(sistau))), config = authenticate(user = alphacast_api_key, password = ""))
r <- PUT(url, body = list(data= write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
library(readr)
write_csv(sistau)
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data= upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(6827, alphacast_api_key)
View(sistau)
colnames(sistau) <- c("Yer", "country", "Monto SISTAU")
colnames(sistau) <- c("Date", "country", "Monto SISTAU")
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data= upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(6827, alphacast_api_key)
r <- PUT(url, body = list(data = sistau), config = authenticate(user = alphacast_api_key, password = ""))
read.csv(sistau)
write.csv(sistau)
r <- PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
r <- POST(url, body = list(data = sistau), config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = upload_file(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=False&onConflictUpdateDB=True", sep = "")
library(readr)
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data", sep = "")
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
library(jsonlite)
r <- POST(url, body = list(data = toJSON(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
toJSON(sistau)
r <- POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
content(r)
r <- POST(url, body = list(data = write.csv(sistau)), encode = "raw", config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = write.csv(sistau)), encode = "csv", config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = write.csv(sistau)), encode = "form", config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "", sep = "")
r <- POST(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(6827, alphacast_api_key)
sistau$hola <- "hola"
r <- POST(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
library(jsonlite)
get_dataframe(6827, alphacast_api_key)
View(sistau)
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(6827, alphacast_api_key)
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data= upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
r <- PUT(url, body = list(data = sistau), config = authenticate(user = alphacast_api_key, password = ""))
r <- PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
r <- POST(url, body = list(data = sistau), config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = upload_file(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
r <- POST(url, body = list(data = toJSON(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data", sep = "")
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
POST(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = toJSON(sistau)), encode = "raw", config = authenticate(user = alphacast_api_key, password = ""))
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "", sep = "")
POST(url, body = list(data = toJSON(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
sistau <- getsubsidiosycomp(annual=FALSE)
colnames(sistau)
cast(sistau)
reshape2::acast(sistau)
reshape2::acast(sistau, periodo ~ tipo ~ monto)
reshape2::acast(sistau, periodo ~ tipo ~ as.numeric(monto))
View(sistau)
View(sistau)
reshape2::acast(as.data.frame(sistau), periodo ~ tipo ~ as.numeric(monto))
reshape2::dcast(as.data.frame(sistau), periodo ~ tipo ~ as.numeric(monto))
reshape2::acast(as.data.frame(sistau), periodo + tipo ~ as.numeric(monto))
reshape2::dcast(as.data.frame(sistau), periodo + tipo ~ as.numeric(monto))
reshape2::acast(as.data.frame(sistau), periodo ~ tipo)
sistau <- reshape2::acast(as.data.frame(sistau), periodo ~ tipo)
rownames(sistau)
sistau$Date <- rownames(sistau)
View(r)
View(sistau)
sistau <- getsubsidiosycomp(FALSE)
sistau <- reshape2::acast(as.data.frame(sistau), periodo ~ tipo)
View(sistau)
sistau <- as.data.frame(sistau)
fechas <- rownames(sistau)
sistau$Yea
sistau$Year <- fechas
sistau$country <- "Argentina"
write_csv(sistau, "sista.csv")
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
write_csv(sistau, "sistau.csv")
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
sink(type = "output", file = "log.txt")
sink(type = "output", file = "log.txt", append = TRUE)
POST(url, body = list(data = toJSON(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
get_dataframe(6827, alphacast_api_key)
POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
get_dataframe(6827, alphacast_api_key)
toJSON(sistau)
toJSON(sistau)
View(sistau)
toJSON(as.data.frame(sistau))
write_json(sistau)
jsonify::to_json(sistau)
View(sistau)
write_json(sistau)
jsonify::to_json(sistau)
jsonify::to_json(sistau)
jsonlite::parse_json(sistau)
sistau <- as.data.frame(sistau)
View(sistau)
POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
r <- POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
content(r)
sink()
jsonify::to_json(sistau)
sink(type = "message")
sink()
hola
"aos"
jsonify::to_json(sistau)
POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data", sep = "")
POST(url, body = list(data = toJSON(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = toJSON(sistau)), encode = json, config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = toJSON(sistau)), encode = "json", config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(6827, alphacast_api_key)
PUT(url, body = list(data = write.csv("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = write.csv(sistau))), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = upload_file(write.csv(sistau))), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = upload_file(sistau.csv)), config = authenticate(user = alphacast_api_key, password = ""))
PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
colnames(sistau)
colnames(sistau)[c(6,7)] <- c("Date", "entity")
colnames(sistau)[c(6,7)] <- c("Date", "Entity")
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data", sep = "")
r <- PUT(url, body = list(data = write.csv2(sistau))), config = authenticate(user = alphacast_api_key, password = ""))
r <- PUT(url, body = list(data = write.csv2(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
colnames(sistau)[c(6,7)] <- c("Year", "country")
r <- PUT(url, body = list(data = write.csv2(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = write.csv2(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
content(r)
PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
form <- list(
"name" = "Datos Subsidios SISTAU",
"repositoryId" = 627)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios SISTAU",
"repositoryId" = 627)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
form <- list(
"name" = "Datos Subsidios al Transporte Automotor",
"repositoryId" = 627)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
dataset_id <- 6829
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(dataset_id, alphacast_api_key)
PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
get_dataframe(dataset_id, alphacast_api_key)
colnames(sistau)
colnames(sistau)[c(6,7)] <- c("Date", "country")
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
colnames(sistau)[c(6,7)] <- c("Year", "Entity")
write_csv(sistau, "sistau.csv")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor 2 ",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
dataset_id <- 6830
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(dataset_id, alphacast_api_key)
r <- PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(dataset_id, alphacast_api_key)
r <- PUT(url, body = list(data = sistau), config = authenticate(user = alphacast_api_key, password = ""))
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor 5",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor 5",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
dataset_id <- 6831
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
r <- PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor con WRITE",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
content(r)
content(r)$id
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = write.csv(sistau)), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor con UPLOAD",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(dataset_id, alphacast_api_key)
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor con upload y post",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- POST(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
sistau
colnames(sistau)[c(6,7)] <- c("Date", "country")
write_csv(sistau, "sistau.csv")
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Datos Subsidios al Transporte Automotor con upload y Date Country",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("sistau.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
get_dataframe(5668, alphacast_api_key)
write_csv(get_dataframe(5668, alphacast_api_key), "hola.csv")
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Prueba",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("hola.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
hola <- read_csv("hola.csv")
colnames(hola)
colnames(hola[ ,1:2]) <- c("country", "Date")
write_csv(hola, "hola.csv")
r <- PUT(url, body = list(data = upload_file("hola.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
hola
colnames(hola[1:2]) <- c("country", "Date")
hola
colnames(hola)[1:2] <- c("country", "Date")
hola
write_csv(hola, "hola.csv")
r <- PUT(url, body = list(data = upload_file("hola.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
url <- "https://api.alphacast.io/datasets"
form <- list(
"name" = "Prueba 2",
"repositoryId" = 607)
r <- POST(url = url, body = form, config = authenticate(user = alphacast_api_key, password = ""))
dataset_id <- content(r)$id
url <- paste("https://api.alphacast.io/datasets/", dataset_id, "/data?deleteMissingFromDB=True&onConflictUpdateDB=True", sep = "")
r <- PUT(url, body = list(data = upload_file("hola.csv")), config = authenticate(user = alphacast_api_key, password = ""))
content(r)
olivos_csv <- which(as.Date(olivos_csv$entrada) > as.Date("2020-03-14") | as.Date(olivos_csv$entrada) < as.Date("2021-06-16")), ]
library(readr)
datos_olivos <- read_csv("datos_olivos.csv")
View(datos_olivos)
head(datos_olivos)
library(readr)
datos_olivos <- read_csv("datos_olivos.csv")
View(datos_olivos)
library(readr)
subsidios_long <- read_csv("~/Downloads/subsidios_long.csv")
View(subsidios_long)
library(RProtoBuf)
library(protolite)
library(wesanderson)
library(RColorBrewer)
library(maptools)
library(ggmap)
library(rgdal)
library(leaflet)
library(viridis)
library(httr)
library(jsonlite)
library(htmltools)
library(sp)
library(sf)
library(mapview)
library(leafem)
library(reshape2)
library(ggplot2)
library(data.table)
library(tidyverse)
library(gganimate)
library(gifski)
library(osmdata)
library(scales)
library(leaflet.extras)
library(magrittr)
library(raster)
library(stplanr)
library(rgeos)
library(reactable)
library(extrafont)
subsidios_long %>%
group_by(Date, Compensación) %>%
summarise(Monto = sum(Monto)) %>%
ggplot()+
geom_line(aes(Date, Monto, color = Compensación))
subsidios_long %>%
group_by(Date, Compensación) %>%
summarise(Monto = sum(Monto)) %>%
ggplot()+
geom_line(aes(Date, Monto, color = Compensación))
subsidios_long %>%
group_by(Date, Compensación) %>%
summarise(Monto = sum(as.numeric(Monto))) %>%
ggplot()+
geom_line(aes(Date, Monto, color = Compensación))