Diferencias

Muestra las diferencias entre dos versiones de la página.

--- edu:moneda:start [2022/02/28 09:49] – son0p
+++ edu:moneda:start [2022/03/01 17:12] (actual) – son0p
@@ Línea 1: / Línea 1: @@
-====== Donaciones ======
-  * https://zenroom.org/ Permite una base de datos con privacidad
-  * https://decodeproject.eu/blog/smart-contracts-english-speaker  Permite programar el flujo del dinero
 ====== Consultar precio acciones COLCAP ======
 <code r>
-if(!require(tidyverse)){install.packages("tidyverse")}
+if (!require(tidyverse)) {install.packages("tidyverse")}
-if(!require(readxl)){install.packages("readxl")}
+if (!require(readxl)) {install.packages("readxl")}
-if(!require(httr)){install.packages("httr")}
+if (!require(httr)) {install.packages("httr")}
+if (!require(lubridate)) {install.packages("lubridate")}
+if (!require(glue)) {install.packages("glue")}
+begin <- ymd("2022-02-01")
+end <- ymd("2022-02-07")
+days_to_retrieve <- c(begin, begin + days(1:as.integer(interval(begin, end) / days(1))))
+get_dayly_data <- function(day_to_retrieve) {
+   url <- glue("https://www.bvc.com.co/mercados/DescargaXlsServlet?archivo=acciones&fecha={as.character(day_to_retrieve)}&resultados=100&tipoMercado=1")
+  GET(url, write_disk(tf <- tempfile(fileext = ".xls")))
+  df <- read_excel(tf, 1L)
+  str(df)
+  if (any(dim(df) == c(0, 0))) {
+    return(tibble(`Nemotecnico` = "", `Ultimo Precio` = double()))
+  }
+  df %>%
+    select("Nemotecnico", "Ultimo Precio")
+}
+selected_species <- c("CELSIA", "NUTRESA", "BCOLOMBIA") ## example of selected species
+datos <- days_to_retrieve %>%
+  map(get_dayly_data) %>%
+  set_names(days_to_retrieve) %>%
+  enframe() %>%
+  unnest(cols = c(value))
+datos %>%
+  filter(Nemotecnico %in% selected_species)
-## COLCAP stock prices
-url <- 'https://www.bvc.com.co/mercados/DescargaXlsServlet?archivo=acciones&fecha=2022-02-22&resultados=100&tipoMercado=1'
-GET(url, write_disk(tf <- tempfile(fileext = ".xls")))
-df <- read_excel(tf, 1L)
-str(df)
-especies <- c("CELSIA","NUTRESA", "BCOLOMBIA" ) ## example of selected especies
-especies_price <- unlist(lapply(especies, function(x){
-  as.numeric(dplyr::filter(df, grepl(x, Nemotecnico)) %>% dplyr::select("Ultimo Precio"))
-})
-)
 </code>
@@ Línea 42: / Línea 62: @@
   * ¿Compran REPOS cuando no hay compra en firme? ¿cuál es la diferencia?
     * ¿Son 500mil millones diarios?
+====== Donaciones ======
+  * https://zenroom.org/ Permite una base de datos con privacidad
+  * https://decodeproject.eu/blog/smart-contracts-english-speaker  Permite programar el flujo del dinero