style + lint

R/cli.R

@@ -80,7 +80,6 @@ cli_startup <- function(internal, model_class, verbose) {
 #' @export
 #' @keywords internal
 cli_compute_vS <- function(internal) {
-
   verbose <- internal$parameters$verbose
   approach <- internal$parameters$approach
 

R/compute_vS.R

@@ -230,7 +230,6 @@ compute_MCint <- function(dt, pred_cols = "p_hat") {
 #' @export
 #' @keywords internal
 append_vS_list <- function(vS_list, internal) {
-
   iter <- length(internal$iter_list)
 
   # Adds v_S output above to any vS_list already computed
@@ -243,17 +242,17 @@ append_vS_list <- function(vS_list, internal) {
 
     # Creates a mapper from the last id_coalition to the new id_coalition numbering
     id_coalitions_mapper <- merge(prev_coalition_map,
-                                  current_coalition_map,
-                                  by = "coalitions_str",
-                                  suffixes = c("", "_new")
+      current_coalition_map,
+      by = "coalitions_str",
+      suffixes = c("", "_new")
     )
     prev_vS_list_new <- list()
 
     # Applies the mapper to update the prev_vS_list ot the new id_coalition numbering
     for (k in seq_along(prev_vS_list)) {
       prev_vS_list_new[[k]] <- merge(prev_vS_list[[k]],
-                                     id_coalitions_mapper[, .(id_coalition, id_coalition_new)],
-                                     by = "id_coalition"
+        id_coalitions_mapper[, .(id_coalition, id_coalition_new)],
+        by = "id_coalition"
       )
       prev_vS_list_new[[k]][, id_coalition := id_coalition_new]
       prev_vS_list_new[[k]][, id_coalition_new := NULL]
@@ -263,5 +262,4 @@ append_vS_list <- function(vS_list, internal) {
     vS_list <- c(prev_vS_list_new, vS_list)
   }
   return(vS_list)
-
 }