library(tidyverse)
library(readxl)
library(xlsx)

#Transformación del dataset de powerbi
dataset <- read.csv("data.csv", encoding = "UTF-8")
View(dataset)
colnames(dataset)
write.csv(dataset, "dataset_export.csv")
#exporto a excel
export <- dataset %>%
  mutate(rename(Expediente = X.U.FEFF.Expediente)) %>%
  select(X.U.FEFF.Expediente,Plazo,Estado,Estado.del.trámite,Fecha.de.caratulación,
         Repartición.actual,Sector.actual,Usuario.actual) %>%
  write.xlsx(paste("dataset_export" ,Sys.Date(), ".xlsx"))