linting

Author: soodoku

.lintr

@@ -1,2 +1,2 @@
-linters: linters_with_defaults(object_name_linter = object_name_linter(styles = c("snake_case", "camelCase", "dotted.case", "symbols")), commented_code_linter = NULL, line_length_linter = line_length_linter(120), cyclocomp_linter = NULL, return_linter = NULL, object_usage_linter = NULL)
-exclusions: list("R/zzz.R")
+linters: linters_with_defaults(object_name_linter = NULL, commented_code_linter = NULL, line_length_linter = NULL, return_linter = NULL, object_usage_linter = NULL, indentation_linter = NULL, trailing_blank_lines_linter = NULL, brace_linter = NULL)
+exclusions: list("R/zzz.R", "tests/_covrpage.Rmd")

R/add_video_to_playlist.R

@@ -30,7 +30,7 @@ add_video_to_playlist <- function(playlist_id, video_id, position = NULL, ...) {
   }
 
   # Prepare the request body
-  if(is.null(position)){
+  if (is.null(position)) {
     body <- list(
       snippet = list(
         playlistId = playlist_id,

R/error_handling.R

@@ -202,7 +202,7 @@ with_retry <- function(expr,
     # Calculate delay with exponential backoff and optional jitter
     delay <- min(base_delay * (backoff_factor ^ (attempt - 1)), max_delay)
     if (jitter) {
-      delay <- delay * (0.5 + 0.5 * runif(1))  # Add 0-50% jitter
+      delay <- delay * (0.5 + 0.5 * runif(1))
     }
 
     # Call retry callback if provided
@@ -568,7 +568,7 @@ validate_youtube_params <- function(params, endpoint = NULL) {
       channelId = validate_channel_id(param_value, "channel_id"),
       playlist_id = validate_playlist_id(param_value, param_name),
       playlistId = validate_playlist_id(param_value, "playlist_id"),
-      part = if(!is.null(endpoint)) validate_part_parameter(param_value, endpoint, param_name),
+      part = if (!is.null(endpoint)) validate_part_parameter(param_value, endpoint, param_name),
       region_code = validate_region_code(param_value, param_name),
       regionCode = validate_region_code(param_value, "region_code"),
       hl = validate_language_code(param_value, "language_code"),

R/get_all_channel_video_stats.R

@@ -71,40 +71,40 @@ get_all_channel_video_stats <- function(channel_id = NULL, mine = FALSE, ...) {
   vid_ids <- character()
   page_token <- NULL
   page_count <- 0
-  
+
   repeat {
     page_count <- page_count + 1
     if (page_count > 1) {
       message("Fetching playlist page ", page_count, "...")
     }
-    
+
     playlist_items <- get_playlist_items(
       filter = c(playlist_id = playlist_id),
       max_results = 50,
       page_token = page_token,
       simplify = FALSE,
       ...
     )
-    
+
     # Extract video IDs from this page
     page_video_ids <- vapply(
       playlist_items$items,
       function(x) x$contentDetails$videoId,
       character(1)
     )
     vid_ids <- c(vid_ids, page_video_ids)
-    
+
     page_token <- playlist_items$nextPageToken
     if (is.null(page_token)) {
       break
     }
   }
-  
+
   if (length(vid_ids) == 0) {
     warning("No videos found in channel uploads playlist")
     return(data.frame())
   }
-  
+
   message("Found ", length(vid_ids), " videos. Fetching video details and statistics...")
 
   # Use the new unified get_video_details function for efficient batch processing
@@ -115,15 +115,15 @@ get_all_channel_video_stats <- function(channel_id = NULL, mine = FALSE, ...) {
     show_progress = TRUE,
     ...
   )
-  
+
   if (!is.data.frame(video_data) || nrow(video_data) == 0) {
     warning("No video data could be retrieved or conversion to data frame failed")
     return(data.frame())
   }
 
   # Map complex column names from get_video_details to expected simple names
   result_df <- video_data
-  
+
   # Map column names from get_video_details output to expected names
   # Note: json_to_df prefixes nested fields with parent name (e.g., snippet_title, statistics_viewCount)
   column_mapping <- c(
@@ -136,33 +136,33 @@ get_all_channel_video_stats <- function(channel_id = NULL, mine = FALSE, ...) {
     "like_count" = "statistics_likeCount",
     "comment_count" = "statistics_commentCount"
   )
-  
+
   # Rename columns that exist
   for (new_name in names(column_mapping)) {
     old_name <- column_mapping[[new_name]]
     if (old_name %in% names(result_df)) {
       names(result_df)[names(result_df) == old_name] <- new_name
     }
   }
-  
+
   # Add video URL
   result_df$url <- paste0("https://www.youtube.com/watch?v=", result_df$id)
-  
+
   # Ensure consistent column order
-  final_columns <- c("id", "title", "publication_date", "description", 
-                     "channel_id", "channel_title", "view_count", "like_count", 
+  final_columns <- c("id", "title", "publication_date", "description",
+                     "channel_id", "channel_title", "view_count", "like_count",
                      "comment_count", "url")
-  
+
   # Add missing columns as NA if they don't exist
   for (col in final_columns) {
     if (!col %in% names(result_df)) {
       result_df[[col]] <- NA
     }
   }
-  
+
   # Select final columns in the right order
   result_df <- result_df[, final_columns, drop = FALSE]
-  
+
   message("Successfully retrieved data for ", nrow(result_df), " videos")
 
   add_tuber_attributes(