Upload New File

code/shiny-apps/tabla_inicio_bolsas/server.R

+options(scipen=999)
+options(warn=-1) # Quitamos los warnings de la consola
+library(tidyquant)
+library(DT)
+library(formattable)
+library(tidyverse)
+
+
+function(input, output) {
+  
+
+  sp500 <- read.csv("../../RData/datos_sp500.csv")
+  sp500_ayer <- read.csv("../../RData/datos_sp500_ayer.csv")
+  sp500 <- sp500[,-2]
+  sp500_ayer <- sp500_ayer[,-2]
+  names(sp500) <- c("Valor", "Precio de cierre ajustado")
+  names(sp500_ayer) <- c("Valor", "Precio de cierre ajustado")
+
+  nasdaq100 <- read.csv("../../RData/datos_nasdaq100.csv")
+  nasdaq100_ayer <- read.csv("../../RData/datos_nasdaq100_ayer.csv")
+  nasdaq100 <- nasdaq100[,-2]
+  nasdaq100_ayer <- nasdaq100_ayer[,-2]
+  names(nasdaq100) <- c("Valor", "Precio de cierre ajustado")
+  names(nasdaq100_ayer) <- c("Valor", "Precio de cierre ajustado")
+
+
+  ibex35 <- read.csv("../../RData/datos_ibex35.csv")
+  ibex35_ayer <- read.csv("../../RData/datos_ibex35_ayer.csv")
+  ibex35 <- ibex35[,-2]
+  ibex35_ayer <- ibex35_ayer[,-2]
+  names(ibex35) <- c("Valor", "Precio de cierre ajustado")
+  names(ibex35_ayer) <- c("Valor", "Precio de cierre ajustado")
+
+
+  eurostoxx50 <- read.csv("../../RData/datos_eurostoxx50.csv")
+  eurostoxx50_ayer <- read.csv("../../RData/datos_eurostoxx50_ayer.csv")
+  eurostoxx50 <- eurostoxx50[,-2]
+  eurostoxx50_ayer <- eurostoxx50_ayer[,-2]
+  names(eurostoxx50) <- c("Valor", "Precio de cierre ajustado")
+  names(eurostoxx50_ayer) <- c("Valor", "Precio de cierre ajustado")
+
+  data <- rbind(sp500[1,], nasdaq100[1,], ibex35[1,], eurostoxx50[1,], sp500, nasdaq100, ibex35, eurostoxx50)
+  ayer <- rbind(sp500_ayer[1,], nasdaq100_ayer[1,], ibex35_ayer[1,], eurostoxx50_ayer[1,], sp500_ayer, nasdaq100_ayer, ibex35_ayer, eurostoxx50_ayer)
+
+  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')
+}