Polish R-side

.Rbuildignore

@@ -106,3 +106,7 @@ src/ta-lib/Makefile.in
 ^codegen$
 ^CRAN-SUBMISSION$
 ^tests/testthat/test-parity.R
+
+## Claude.md
+^src/ta-lib/CLAUDE.md
+^src/ta-lib/.claude

NAMESPACE

@@ -33,6 +33,13 @@ S3method(aroon_oscillator,default)
 S3method(aroon_oscillator,ggplot)
 S3method(aroon_oscillator,matrix)
 S3method(aroon_oscillator,plotly)
+S3method(as.maType,double)
+S3method(as.maType,integer)
+S3method(as.maType,maType)
+S3method(average_deviation,data.frame)
+S3method(average_deviation,default)
+S3method(average_deviation,matrix)
+S3method(average_deviation,numeric)
 S3method(average_directional_movement_index,data.frame)
 S3method(average_directional_movement_index,default)
 S3method(average_directional_movement_index,ggplot)
@@ -322,9 +329,17 @@ S3method(mesa_adaptive_moving_average,ggplot)
 S3method(mesa_adaptive_moving_average,matrix)
 S3method(mesa_adaptive_moving_average,numeric)
 S3method(mesa_adaptive_moving_average,plotly)
+S3method(midpoint_period,data.frame)
+S3method(midpoint_period,default)
+S3method(midpoint_period,ggplot)
+S3method(midpoint_period,matrix)
+S3method(midpoint_period,numeric)
+S3method(midpoint_period,plotly)
 S3method(midpoint_price,data.frame)
 S3method(midpoint_price,default)
+S3method(midpoint_price,ggplot)
 S3method(midpoint_price,matrix)
+S3method(midpoint_price,plotly)
 S3method(minus_directional_indicator,data.frame)
 S3method(minus_directional_indicator,default)
 S3method(minus_directional_indicator,ggplot)
@@ -411,18 +426,6 @@ S3method(plus_directional_movement,matrix)
 S3method(plus_directional_movement,plotly)
 S3method(print,talib_chart)
 S3method(print,talib_gg_chart)
-S3method(rate_of_change,data.frame)
-S3method(rate_of_change,default)
-S3method(rate_of_change,ggplot)
-S3method(rate_of_change,matrix)
-S3method(rate_of_change,numeric)
-S3method(rate_of_change,plotly)
-S3method(ratio_of_change,data.frame)
-S3method(ratio_of_change,default)
-S3method(ratio_of_change,ggplot)
-S3method(ratio_of_change,matrix)
-S3method(ratio_of_change,numeric)
-S3method(ratio_of_change,plotly)
 S3method(relative_strength_index,data.frame)
 S3method(relative_strength_index,default)
 S3method(relative_strength_index,ggplot)
@@ -443,14 +446,8 @@ S3method(rolling_beta,default)
 S3method(rolling_beta,numeric)
 S3method(rolling_correlation,default)
 S3method(rolling_correlation,numeric)
-S3method(rolling_max,default)
-S3method(rolling_max,numeric)
-S3method(rolling_min,default)
-S3method(rolling_min,numeric)
 S3method(rolling_standard_deviation,default)
 S3method(rolling_standard_deviation,numeric)
-S3method(rolling_sum,default)
-S3method(rolling_sum,numeric)
 S3method(rolling_variance,default)
 S3method(rolling_variance,numeric)
 S3method(separating_lines,data.frame)
@@ -636,6 +633,11 @@ S3method(upside_gap_2_crows,default)
 S3method(upside_gap_2_crows,ggplot)
 S3method(upside_gap_2_crows,matrix)
 S3method(upside_gap_2_crows,plotly)
+S3method(variable_moving_average_period,data.frame)
+S3method(variable_moving_average_period,default)
+S3method(variable_moving_average_period,ggplot)
+S3method(variable_moving_average_period,matrix)
+S3method(variable_moving_average_period,plotly)
 S3method(weighted_close_price,data.frame)
 S3method(weighted_close_price,default)
 S3method(weighted_close_price,matrix)
@@ -664,6 +666,7 @@ export(APO)
 export(AROON)
 export(AROONOSC)
 export(ATR)
+export(AVGDEV)
 export(AVGPRICE)
 export(BBANDS)
 export(BETA)
@@ -747,11 +750,11 @@ export(MACD)
 export(MACDEXT)
 export(MACDFIX)
 export(MAMA)
-export(MAX)
+export(MAVP)
 export(MEDPRICE)
 export(MFI)
+export(MIDPOINT)
 export(MIDPRICE)
-export(MIN)
 export(MINUS_DI)
 export(MINUS_DM)
 export(MOM)
@@ -760,8 +763,6 @@ export(OBV)
 export(PLUS_DI)
 export(PLUS_DM)
 export(PPO)
-export(ROC)
-export(ROCR)
 export(RSI)
 export(SAR)
 export(SAREXT)
@@ -770,7 +771,6 @@ export(STDDEV)
 export(STOCH)
 export(STOCHF)
 export(STOCHRSI)
-export(SUM)
 export(T3)
 export(TEMA)
 export(TRANGE)
@@ -789,6 +789,7 @@ export(acceleration_bands)
 export(advance_block)
 export(aroon)
 export(aroon_oscillator)
+export(average_deviation)
 export(average_directional_movement_index)
 export(average_directional_movement_index_rating)
 export(average_price)
@@ -847,6 +848,7 @@ export(mat_hold)
 export(matching_low)
 export(median_price)
 export(mesa_adaptive_moving_average)
+export(midpoint_period)
 export(midpoint_price)
 export(minus_directional_indicator)
 export(minus_directional_movement)
@@ -864,17 +866,12 @@ export(phasor_components)
 export(piercing)
 export(plus_directional_indicator)
 export(plus_directional_movement)
-export(rate_of_change)
-export(ratio_of_change)
 export(relative_strength_index)
 export(rickshaw_man)
 export(rise_fall_3_methods)
 export(rolling_beta)
 export(rolling_correlation)
-export(rolling_max)
-export(rolling_min)
 export(rolling_standard_deviation)
-export(rolling_sum)
 export(rolling_variance)
 export(separating_lines)
 export(set_theme)
@@ -911,6 +908,7 @@ export(typical_price)
 export(ultimate_oscillator)
 export(unique_3_river)
 export(upside_gap_2_crows)
+export(variable_moving_average_period)
 export(weighted_close_price)
 export(weighted_moving_average)
 export(williams_oscillator)

R/ta_ACCBANDS.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 acceleration_bands <- function(
 	x,

R/ta_AD.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 chaikin_accumulation_distribution_line <- function(
 	x,

R/ta_ADOSC.R

@@ -12,6 +12,8 @@
 ## splice:documentation:end
 #'
 #' @template description
+#' @param fastPeriod ([integer]). Number of period for the fast MA. Defaults to `3`.
+#' @param slowPeriod ([integer]). Number of period for the slow MA. Defaults to `10`.
 #' @template returns
 chaikin_accumulation_distribution_oscillator <- function(
 	x,

R/ta_ADX.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 average_directional_movement_index <- function(
 	x,

R/ta_ADXR.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 average_directional_movement_index_rating <- function(
 	x,

R/ta_APO.R

@@ -12,6 +12,9 @@
 ## splice:documentation:end
 #'
 #' @template description
+#' @param fastPeriod ([integer]). Number of period for the fast MA. Defaults to `12`.
+#' @param slowPeriod ([integer]). Number of period for the slow MA. Defaults to `26`.
+#' @param maType ([integer]). Type of Moving Average. Defaults to `0` ([SMA]). Can also be passed as talib::SMA.
 #' @template returns
 absolute_price_oscillator <- function(
 	x,
@@ -71,7 +74,7 @@ absolute_price_oscillator.default <- function(
 		constructed_series[[1]],
 		as.integer(fastPeriod),
 		as.integer(slowPeriod),
-		as.integer(maType),
+		as.maType(maType),
 		as.logical(na.bridge)
 	)
 
@@ -146,7 +149,7 @@ absolute_price_oscillator_lookback <- function(
 		C_impl_ta_APO_lookback,
 		as.integer(fastPeriod),
 		as.integer(slowPeriod),
-		as.integer(maType)
+		as.maType(maType)
 	)
 }
 #' @usage NULL
@@ -177,7 +180,7 @@ absolute_price_oscillator.numeric <- function(
 		as.double(x),
 		as.integer(fastPeriod),
 		as.integer(slowPeriod),
-		as.integer(maType),
+		as.maType(maType),
 		as.logical(na.bridge)
 	)
 

R/ta_AROON.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 aroon <- function(
 	x,

R/ta_AROONOSC.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 aroon_oscillator <- function(
 	x,

R/ta_ATR.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 average_true_range <- function(
 	x,

R/ta_AVGDEV.R

@@ -4,37 +4,38 @@
 #' @title Average Deviation
 #' @templateVar .title Average Deviation
 #' @templateVar .author Serkan Korkmaz
-#' @templateVar .fun AVGDEV
+#' @templateVar .fun average_deviation
 #' @templateVar .family Price Transform
 #' @templateVar .formula ~close
 #'
 ## splice:documentation:start
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
-AVGDEV <- function(
+average_deviation <- function(
 	x,
 	cols,
 	timePeriod = 14,
 	na.bridge = FALSE,
 	...
 ) {
-	UseMethod("AVGDEV")
+	UseMethod("average_deviation")
 }
 
 #' @export
 #' @usage NULL
-#' @rdname AVGDEV
+#' @rdname average_deviation
 #'
-#' @aliases AVGDEV
-AVGDEV <- AVGDEV
+#' @aliases average_deviation
+AVGDEV <- average_deviation
 
 #' @usage NULL
-#' @aliases AVGDEV
+#' @aliases average_deviation
 #'
 #' @export
-AVGDEV.default <- function(
+average_deviation.default <- function(
 	x,
 	cols,
 	timePeriod = 14,
@@ -77,18 +78,18 @@ AVGDEV.default <- function(
 }
 
 #' @usage NULL
-#' @aliases AVGDEV
+#' @aliases average_deviation
 #'
 #' @export
-AVGDEV.data.frame <- function(
+average_deviation.data.frame <- function(
 	x,
 	cols,
 	timePeriod = 14,
 	na.bridge = FALSE,
 	...
 ) {
 	map_dfr(
-		AVGDEV.default(
+		average_deviation.default(
 			x = x,
 			cols = cols,
 			timePeriod = timePeriod,
@@ -99,17 +100,17 @@ AVGDEV.data.frame <- function(
 }
 
 #' @usage NULL
-#' @aliases AVGDEV
+#' @aliases average_deviation
 #'
 #' @export
-AVGDEV.matrix <- function(
+average_deviation.matrix <- function(
 	x,
 	cols,
 	timePeriod = 14,
 	na.bridge = FALSE,
 	...
 ) {
-	AVGDEV.default(
+	average_deviation.default(
 		x = x,
 		cols = cols,
 		timePeriod = timePeriod,
@@ -119,7 +120,7 @@ AVGDEV.matrix <- function(
 }
 
 #' @usage NULL
-AVGDEV_lookback <- function(
+average_deviation_lookback <- function(
 	x,
 	cols,
 	timePeriod = 14,
@@ -132,10 +133,10 @@ AVGDEV_lookback <- function(
 	)
 }
 #' @usage NULL
-#' @aliases AVGDEV
+#' @aliases average_deviation
 #'
 #' @export
-AVGDEV.numeric <- function(
+average_deviation.numeric <- function(
 	x,
 	cols,
 	timePeriod = 14,

R/ta_AVGPRICE.R

@@ -12,6 +12,7 @@
 ## splice:documentation:end
 #'
 #' @template description
+#'
 #' @template returns
 average_price <- function(
 	x,