misc

R/expr__string.R

@@ -320,7 +320,7 @@ ExprStr_zfill = function(alignment) {
 #' df$select(pl$col("a")$str$pad_end(8, "*"))
 ExprStr_pad_end = function(width, fillchar = " ") {
   .pr$Expr$str_pad_end(self, width, fillchar) |>
-    unwrap("in str$ljust(): ")
+    unwrap("in str$pad_end(): ")
 }
 
 
@@ -336,7 +336,7 @@ ExprStr_pad_end = function(width, fillchar = " ") {
 #' df$select(pl$col("a")$str$pad_start(8, "*"))
 ExprStr_pad_start = function(width, fillchar = " ") {
   .pr$Expr$str_pad_start(self, width, fillchar) |>
-    unwrap("in str$rjust(): ")
+    unwrap("in str$pad_start(): ")
 }
 
 

R/extendr-wrappers.R

@@ -1201,7 +1201,7 @@ Series$floor <- function() .Call(wrap__Series__floor, self)
 
 Series$print <- function() invisible(.Call(wrap__Series__print, self))
 
-Series$cumsum <- function(reverse) .Call(wrap__Series__cumsum, self, reverse)
+Series$cum_sum <- function(reverse) .Call(wrap__Series__cum_sum, self, reverse)
 
 Series$to_frame <- function() .Call(wrap__Series__to_frame, self)
 

R/series__series.R

@@ -575,10 +575,10 @@ Series_clone = "use_extendr_wrapper"
 #' The Dtypes Int8, UInt8, Int16 and UInt16 are cast to
 #' Int64 before summing to prevent overflow issues.
 #' @examples
-#' pl$Series(c(1:2, NA, 3, NaN, 4, Inf))$cumsum()
-#' pl$Series(c(1:2, NA, 3, Inf, 4, -Inf, 5))$cumsum()
-Series_cumsum = function(reverse = FALSE) {
-  .pr$Series$cumsum(self, reverse) |> unwrap("in $cumsum()")
+#' pl$Series(c(1:2, NA, 3, NaN, 4, Inf))$cum_sum()
+#' pl$Series(c(1:2, NA, 3, Inf, 4, -Inf, 5))$cum_sum()
+Series_cum_sum = function(reverse = FALSE) {
+  .pr$Series$cum_sum(self, reverse) |> unwrap("in $cum_sum()")
 }
 
 #' Sum

tests/testthat/test-expr_string.R

@@ -218,7 +218,7 @@ test_that("zfill", {
 })
 
 # patrick package could be justified here
-test_that("str$ljust str$rjust", {
+test_that("str$pad_start str$pad_start", {
   # ljust
   df = pl$DataFrame(a = c("cow", "monkey", NA, "hippopotamus"))
   expect_identical(