Diferencias

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

--- edu:moneda:start [2022/03/01 17:10] – son0p
+++ edu:moneda:start [2022/03/01 17:12] (actual) – son0p
@@ Línea 15: / Línea 15: @@
 get_dayly_data <- function(day_to_retrieve) {
-  ## COLCAP stock prices
+   url <- glue("https://www.bvc.com.co/mercados/DescargaXlsServlet?archivo=acciones&fecha={as.character(day_to_retrieve)}&resultados=100&tipoMercado=1")
-  ## url <- "https://www.bvc.com.co/mercados/DescargaXlsServlet?archivo=acciones&fecha=2022-02-22&resultados=100&tipoMercado=1"
-  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)
-  ## especies <- c("CELSIA", "NUTRESA", "BCOLOMBIA") ## example of selected especies
   if (any(dim(df) == c(0, 0))) {
     return(tibble(`Nemotecnico` = "", `Ultimo Precio` = double()))
@@ Línea 30: / Línea 28: @@
 }
-selected_species <- c("CELSIA", "NUTRESA", "BCOLOMBIA") ## example of selected especies
+selected_species <- c("CELSIA", "NUTRESA", "BCOLOMBIA") ## example of selected species
 datos <- days_to_retrieve %>%