Upload New File

code/shiny-apps/tabla_inicio_divisas/server.R

+options(scipen=999)
+options(warn = -1)
+library(tidyquant)
+library(DT)
+library(formattable)
+library(tidyverse)
+
+function(input, output) {
+
+    data <- read.csv("../../RData/datos_divisas.csv")
+    ayer <- read.csv("../../RData/datos_divisas_ayer.csv")
+    data <- data[,-2]
+    ayer <- ayer[,-2]
+
+    names(data) <- c("Valor", "Precio de cierre ajustado")
+    names(ayer) <- c("Valor", "Precio de cierre ajustado")
+
+    Cambio <- ((as.numeric(data$`Precio de cierre ajustado`)-as.numeric(ayer$`Precio de cierre ajustado`))/as.numeric(ayer$`Precio de cierre ajustado`))*100
+        signos <- function(elemento){
+            if(elemento > 0){
+                return(paste("+", elemento, sep = ""))
+            }
+            else{
+                return(elemento)
+            }
+        }
+        Cambio <- round(Cambio, digits = 2)
+        Cambio <- unlist(lapply(Cambio, signos))
+        data <- cbind(data, Cambio)
+        data$`Precio de cierre ajustado` <- round(data$`Precio de cierre ajustado`, digits = 4)
+
+        data <- formattable(data, list(
+        `Cambio` = formatter("span", style = ~style(font.weight = "bold", color = 
+                                                        ifelse(substr(data$`Cambio`, start = 1, stop = 1) == "+","#4AB58A",
+                                                            ifelse(substr(data$`Cambio`, start = 1, stop = 1) == "","gray",
+                                                                    ifelse(substr(data$`Cambio`, start = 1, stop = 1) == "-", "#B51D1D",NA)))))
+        )) %>%
+        mutate(data, `Cambio` = paste(data$`Cambio`, "%")) %>%
+        as.datatable(escape = FALSE,
+                    options = list(scrollX = TRUE),
+                    rownames = FALSE)
+
+        output$mytable <- DT::renderDataTable(data,
+                                            options = list(scrollX = TRUE),
+                                            rownames = FALSE,
+                                            selection = 'none')
+
+}
\ No newline at end of file