list.of.packages <- c("shiny", "readxl")
new.packages <- list.of.packages[!(list.of.packages %in% installed.packages()[,"Package"])]
if(length(new.packages)) install.packages(new.packages)
#This step install packages when needed
rm(list.of.packages,new.packages)#clean

library(shiny)
library(readxl)
#Load data
Eucaliptal <- read_excel("Eucaliptal.xlsx") #necesitas tener el archivo en la misma carpeta desde donde corres este script

runGist("d187da1452afdac491400cb4d60651c1")