HughParsonage / hutils

Compare e80afed ... +0 ... c594cb8

99.60% ø +1.23%

Overview Diff Coverage Changes
1
 Files Commits
Coverage Reach
hull.R select_grep.R mutate_ntile.R if_else.R find_pattern.R mutate_other.R longest_affix.R weight2rows.R number2word.R auc.R Switch.R dir2.R bearing.R drop_constant_cols.R implies.R coalesce.R weighted_quantile.R samp.R drop_empty_cols.R prohibit_vector_recycling.R any_grepl.R set_cols_first.R ein.R replace_pattern_in.R drop_col.R average_bearing.R weighted_ntile.R Mode.R utils-anyNA.R selector.R report_error.R isTrueFalse.R prohibit_unequal_length_vectors.R dev_copy2a4.R haversine_distance.R select_which.R duplicated_rows.R all_same_sign.R provide-file.R swap.R generate_LaTeX_manual.R notchin.R RQ.R unique-keys.R aliases.R mean_na.R notin.R ngrep.R drop_colr.R isAttached.R pin.R provide-dir.R set_seed.R

No flags found

Use flags to group coverage reports by test type, project and/or folders.
Then setup custom commit statuses and notifications for each flag.

e.g., #unittest #integration

#production #enterprise

#frontend #backend

Learn more about Codecov Flags here.

Showing 1 of 1 files from the diff.

@@ -47,33 +47,6 @@
Loading
47 47 
#' @rdname bearing
48 48 
#' @export
49 49 
compass2bearing <- function(compass) {
50 - 
  if (length(compass) > 1) {
51 - 
    x <- res <- NULL
52 - 
    DT <- setDT(list(x = compass))
53 - 
    DT[, res := compass2bearing(x), by = "x"]
54 - 
    return(.subset2(DT, "res"))
55 - 
  }
56 - 
  if (is.na(compass)) {
57 - 
    return(NA_real_)
58 - 
  }
59 -
60 - 
  switch(nchar(compass),
61 - 
         {
62 - 
           c(0, 90, 180, 270)[match(toupper(compass), c("N", "E", "S", "W"))]
63 - 
         },
64 - 
         {
65 - 
           c(45, 135, 225, 315)[match(toupper(compass), c("NE", "SE", "SW", "NW"))]
66 - 
         },
67 - 
         {
68 - 
           b1 <- substr(compass, 0, 1)
69 - 
           b2 <- substr(compass, 2, 3)
70 - 
           average_bearing(compass2bearing(b1),
71 - 
                           compass2bearing(b2))
72 - 
         },
73 - 
         0)
74 - 
}
75 - 









76
                            
                            -
                            
.compass2bearing <- function(compass) {









77
50
                             
                            
  CompassNames <- c("CALM", 










78
51
                             
                            
                    "E", "ENE", "ESE",










79
52
                             
                            
                    "N",







 
 



































Learn more

Showing 1 files with coverage changes found.












Changes in R/bearing.R











-13





→





+13


















Loading file...






















2

Commits

















































99.60%



ø






+1.23%




























Simplify bearing











HughParsonage













#39






c594cb8





 CI Passed

























-15






+7







-22

















































98.37%




100.00%







-0.52%




























Fix tests, export prohibit











HughParsonage













#39






e80afed





 CI Passed








































































Files






Coverage
























R



















+1.23%






99.60%











Project Totals (53 files)






99.60%
































Loading