fixed {goodpractices} issues

DESCRIPTION

@@ -7,6 +7,8 @@ Maintainer: Marcelo S. Perlin <marceloperlin@gmail.com>
 Description: R port of eodhd API <https://eodhd.com/>, extended with a cache and quota system, 
  also offering functions for cleaning and aggregating the financial data. 
 License: MIT + file LICENSE
+URL: https://github.com/msperlin/eodhd2
+BugReports: https://github.com/msperlin/eodhd2/issues
 Encoding: UTF-8
 LazyData: true
 Roxygen: list(markdown = TRUE)

R/dividends.R

@@ -1,6 +1,7 @@
 #' Retrieves dividend data from the api
 #'
-#' This function will query the dividend end point <https://eodhd.com/financial-apis/api-splits-dividends> and return:
+#' This function will query the dividend end point
+#' <https://eodhd.com/financial-apis/api-splits-dividends> and return:
 #' * dates (declaration, record, payment)
 #' * value of dividend (adjusted and unajusted)
 #' * currency of dividend
@@ -34,7 +35,9 @@ get_dividends <- function(ticker = "AAPL", exchange = "US",
     df_div <- read_cache(f_out)
 
   } else {
-    url <- glue::glue('https://eodhd.com/api/div/{ticker}.{exchange}?api_token={token}&fmt=json')
+    url <- glue::glue(
+      'https://eodhd.com/api/div/{ticker}.{exchange}?api_token={token}&fmt=json'
+      )
 
     content <- query_api(url)
 

R/exchanges.R

@@ -20,7 +20,9 @@ get_exchanges <- function(cache_folder = get_default_cache()) {
   token <- get_token()
 
   if (token == get_demo_token()) {
-    cli::cli_abort("You need a proper token (not \"{get_demo_token()}\") for retrieving the list of exchanges.")
+    cli::cli_abort(
+      "You need a proper token (not \"{get_demo_token()}\") for retrieving the list of exchanges."
+      )
   }
 
   f_out <-get_cache_file("cache", "exchange", cache_folder, "exchange-list")

R/financials.R

@@ -1,12 +1,16 @@
 #' Parses financial data from the API
 #'
-#' This function will organize the raw financial data from [eodhd2::get_fundamentals()], aggregating all information into a single dataframe,
-#' including quarterly and yearly data from the Balance_sheet, Cashflow statement and Income statement. Whenever no financial data is found in
+#' This function will organize the raw financial data from [eodhd2::get_fundamentals()],
+#' aggregating all information into a single dataframe,
+#' including quarterly and yearly data from the Balance_sheet,
+#' Cashflow statement and Income statement. Whenever no financial data is found in
 #' l_out, the function returns an empty dataframe.
 #'
 #' @param l_out A list with raw data (output from [eodhd2::get_fundamentals()])
-#' @param type_table Format of table in output ("wide" or "long"). A "wide" table is a typical Excel column-oriented table where each columns is a data/year.
-#' A long type of table row-oriented, where each each point of new information is a row of the table. The data is the same, it just changes the orientation of rows/columns.
+#' @param type_table Format of table in output ("wide" or "long").
+#' A "wide" table is a typical Excel column-oriented table where each columns is a data/year.
+#' A long type of table row-oriented, where each each point of new information is
+#' a row of the table. The data is the same, it just changes the orientation of rows/columns.
 #' The default value is a "long" table.
 #'
 #' @export

R/token.R

@@ -52,7 +52,7 @@ set_token <- function(token = get_demo_token()) {
 #' get_demo_token()
 get_demo_token <- function() {
 
-  token = "demo"
+  token <- "demo"
 
   return(token)
 }