removed dependencies

Removed dependencies for

- ascii
- tidyr (now in Suggests because of the vignettes)
- readxl

Author: wilsonfreitas

.devcontainer/install_packages.R

@@ -24,10 +24,7 @@ install.packages(c("cli", "rlang",
 "DT",
 "testthat",
 "tidyr",
-"readxl",
 "XML",
-"ascii",
 "rvest",
 "readr",
-"proto",
 "bizdays"))

DESCRIPTION

@@ -24,15 +24,12 @@ Imports:
     httr,
     jsonlite,
     purrr,
-    ascii,
     rlang,
     methods,
     yaml,
     digest,
     base64enc,
-    XML,
-    readxl,
-    tidyr
+    XML
 Suggests:
     testthat,
     knitr,
@@ -47,6 +44,7 @@ Suggests:
     magrittr,
     tibble,
     withr,
+    tidyr,
     vcr (>= 0.6.0)
 Collate:
     'rb3-package.R'

NAMESPACE

@@ -50,7 +50,6 @@ export(yc_usd_superset)
 importFrom(XML,getNodeSet)
 importFrom(XML,xmlInternalTreeParse)
 importFrom(XML,xmlValue)
-importFrom(ascii,ascii)
 importFrom(base64enc,base64encode)
 importFrom(bizdays,add.bizdays)
 importFrom(bizdays,bizdayse)
@@ -104,7 +103,6 @@ importFrom(readr,read_csv)
 importFrom(readr,read_file)
 importFrom(readr,read_rds)
 importFrom(readr,write_rds)
-importFrom(readxl,read_excel)
 importFrom(rlang,.data)
 importFrom(rvest,html_element)
 importFrom(rvest,html_nodes)
@@ -125,7 +123,6 @@ importFrom(stringr,str_starts)
 importFrom(stringr,str_sub)
 importFrom(stringr,str_to_lower)
 importFrom(stringr,str_trim)
-importFrom(tidyr,pivot_longer)
 importFrom(utils,getFromNamespace)
 importFrom(utils,hasName)
 importFrom(utils,read.table)

R/fields.R

@@ -16,10 +16,8 @@ as.data.frame.fields <- function(x, ...) {
 }
 
 print.fields <- function(x, ...) {
-  df <- as.data.frame(x)
-  suppressWarnings(
-    print(ascii(df, include.rownames = TRUE), type = "org")
-  )
+  cat(paste(fields_names(x), collapse = ", "), "\n")
+  invisible(x)
 }
 
 fields_names <- function(fields) {

R/rb3-package.R

@@ -40,7 +40,6 @@
 #'
 #' @name rb3-package
 #'
-#' @importFrom ascii ascii
 #' @importFrom base64enc base64encode
 #' @importFrom bizdays following preceding load_builtin_calendars
 #' @importFrom bizdays add.bizdays bizdayse bizseq getdate
@@ -51,12 +50,10 @@
 #' @importFrom digest digest
 #' @importFrom dplyr tibble inner_join mutate select filter left_join as_tibble
 #' @importFrom dplyr bind_rows arrange rename group_by summarise
-#' @importFrom tidyr pivot_longer
 #' @importFrom httr GET POST parse_url status_code headers content config
 #' @importFrom jsonlite toJSON fromJSON
 #' @importFrom purrr map_dfr map_lgl map_chr map_int map
 #' @importFrom readr write_rds read_rds read_csv read_file
-#' @importFrom readxl read_excel
 #' @importFrom rlang .data
 #' @importFrom stringr str_replace_all str_starts str_match str_sub str_split
 #' @importFrom stringr str_to_lower str_detect str_pad str_replace str_trim

R/scraper-indexes.R

@@ -221,24 +221,6 @@ get_single_indexreport <- function(idx_date,
   }
 }
 
-index_get_from_file <- function(year) {
-  index_data <- read_excel("./examples/IBOVDIA.XLS",
-    sheet = as.character(year), skip = 1, range = "A3:M33",
-    col_names = c("day", 1:12),
-  )
-
-  pivot_longer(index_data, "1":"12", names_to = "month") |>
-    mutate(
-      month = as.integer(.data$month),
-      year = year,
-      refdate = ISOdate(.data$year, .data$month, .data$day) |> as.Date(),
-      index_name = "IBOV"
-    ) |>
-    filter(!is.na(.data$value)) |>
-    arrange("refdate") |>
-    select("refdate", "index_name", "value")
-}
-
 ibovespa_index_get <- function(first_date, last_date = as.Date("1997-12-31")) {
   f <- system.file("extdata/IBOV.rds", package = "rb3")
   read_rds(f) |> filter(.data$refdate >= first_date, .data$refdate <= last_date)

R/template.R

@@ -64,22 +64,22 @@ load_template_files <- function() {
   }
 }
 
-print.template <- function(.) {
-  cat("Template ID:", .$id, "\n")
-  cat("Expected filename:", .$filename, "\n")
-  cat("File type:", .$filetype, "\n")
-  if (is(.$fields, "fields")) {
-    cat("\n")
-    print.fields(.$fields)
+print.template <- function(x, ...) {
+  cat("Template ID:", x$id, "\n")
+  cat("Expected filename:", x$filename, "\n")
+  cat("File type:", x$filetype, "\n")
+  if (is(x$fields, "fields")) {
+    cat("Fields: ")
+    print.fields(x$fields)
   } else {
-    parts_names <- names(.$parts)
+    parts_names <- names(x$parts)
     ix <- 0
     for (nx in parts_names) {
       ix <- ix + 1
       cat("\n")
       cat(sprintf("Part %d: %s\n", ix, nx))
-      cat("\n")
-      print.fields(.$parts[[nx]]$fields)
+      cat("Fields: ")
+      print.fields(x$parts[[nx]]$fields)
     }
   }
   invisible(NULL)

examples/index-historical-data.R

@@ -30,6 +30,24 @@ View(index_data)
 
 # ----
 
+index_get_from_file <- function(year) {
+  index_data <- read_excel("./examples/IBOVDIA.XLS",
+    sheet = as.character(year), skip = 1, range = "A3:M33",
+    col_names = c("day", 1:12),
+  )
+
+  pivot_longer(index_data, "1":"12", names_to = "month") |>
+    mutate(
+      month = as.integer(.data$month),
+      year = year,
+      refdate = ISOdate(.data$year, .data$month, .data$day) |> as.Date(),
+      index_name = "IBOV"
+    ) |>
+    filter(!is.na(.data$value)) |>
+    arrange("refdate") |>
+    select("refdate", "index_name", "value")
+}
+
 # str_pad(1:12, 2, pad = "0")
 index_get_from_file <- function(year) {
   index_data <- read_excel("./examples/IBOVDIA.XLS",