.Rhistory

library(devtools)
use_r(code_to_doc.R)
use_r(code_to_doc)
use_r("doc_to_code")
devtools::load_all(".")
use_package(mall)
use_package("mall")
use_package("dplyr")
library(tidyverse)
library(readxl)
library(openxlsx)
library(riddle)
nombre_archivo <- "Amnistia CPP1 y CPP2 al 05-01-25 v5.xlsx"
fecha <- "2025-01-05"
#CHANGE TO OPENXLSX TO SEE IF IT OPENS THE EXCEL BETTER
ingresos_pcf <- read.xlsx(nombre_archivo, sheet = "B16", startRow = 5) |>
mutate(Tipo = "PCF") |>
mutate(Flujos = "Ingresos") |>
mutate(Total = as.numeric(Total)) |>
mutate(across(starts_with("2023"), as.numeric)) |>
mutate(across(starts_with("2024"), as.numeric))
devtools::load_all(".")
devtools::load_all(".")
library(DocToRLlama)
devtools::load_all(".")
library(DocToRLlama)
?doc_to_code
devtools::load_all(".")
library(DocToRLlama)
?doc_to_code
devtools::load_all(".")
getwd()
doc_to_code("code_to_doc.R")
library(DocToRLlama)
devtools::load_all(".")
library(DocToRLlama)
doc_to_code("code_to_doc.R")
getwd()
devtools::load_all(".")
library(DocToRLlama)
doc_to_code("code_to_doc.R")
devtools::load_all(".")
doc_to_code("code_to_doc.R")
devtools::load_all(".")
doc_to_code("code_to_doc.R")
library(DocToRLlama)
devtools::load_all(".")
library(DocToRLlama)
doc_to_code("code_to_doc.R")
library(devtools)
use_data("code_to_doc.R")