statsailr_procs_base 0.1.0 → 0.1.1

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: a51230b59e2b856ea437ad4ac97b646b78b39a1295cb5b8208f9e7e53ff33d55
-  data.tar.gz: 0f70c8c3c6abbcc76f4ba744819b12f68199fbad1aa8fd92f7a8e5ec8fca222f
+  metadata.gz: 6e0d1dc502ec3437a933f302624f5f4da5ee51f14fef0c1b9bbd873b1dd23cd3
+  data.tar.gz: d19c0f2b485e37149df2e74e853cc14a82ddb38038a04c5b9ab222631c508481
 SHA512:
-  metadata.gz: 9f73d33ca1053d0bde2c41d1f284b3c1a7ad1326153acf42e0e5a50b4682983160eb3f4bee85f1187e156fde70b7c83b9ff5b1538fa11a0b4ea9c70e912e06bd
-  data.tar.gz: e4ef6beb2a3608ebd5586b5ef3b5ac7d3abc8b2b03c7bd3738c297bcf5ec0df03fc1c28e5e71b122ef3124587a4baea155cd10184bcc7e6413380976357bbcf2
+  metadata.gz: cdd5aee4641cc52e92dfcdefd793a759c1f6acfc4694b35b67bdeebf0565d0a1a60782e51226b6db64a4a53de0de1825979171ac7e0843bdfc8d4ed1f0519f76
+  data.tar.gz: a5887f5812df8357aa1c13662a0df3d7a376be94fcec89c9f484b1a966258e7c23ce1bd34cacfcc2e9c512f4df441ca5517f16ee6924ec02c69060072f119c70

data/lib/statsailr_procs_base/check_statsailr_version.rb

@@ -2,7 +2,7 @@ module StatSailr
   module ProcsBase
     def self.check_statsailr_version
       statsailr_version = StatSailr::VERSION
-      statsailr_version_at_least = "0.7.1"
+      statsailr_version_at_least = "0.7.6"
       return version_should_be_at_least( statsailr_version , statsailr_version_at_least ) 
     end
 

data/lib/statsailr_procs_base/proc_setting/proc_filter.R

@@ -0,0 +1,39 @@
+sts_filter = new.env()
+
+sts_filter$wrap_filter = function( data, cond ){
+  lang_cond = rlang::parse_expr( cond )
+  df = dplyr::filter( data, !! lang_cond )
+  return(df)
+}
+
+sts_filter$wrap_select = function( data, cond ){
+  lang_cond = rlang::parse_exprs(cond)
+  df = dplyr::select(data, !!! lang_cond)
+  return(df)
+}
+
+sts_filter$assign_to = function(var, df){
+  if( (! is.character(var)) || length(var) != 1 ){
+    stop("var argument requires character vector with size of 1")
+  }
+
+  global_env = globalenv()
+  global_env[[ var[1] ]] = df
+  return(df)
+}
+
+sts_filter$finalizer = function( df, last_inst, out ){
+  if( last_inst != "assign_to" ){
+    if( is.null(out) ){
+      cat("The last result is print out, and is not assigned to any variable.\n")
+      print(head(df))
+      cat("Use out= option for PROC COMMAND or use assing_to instruction\n")
+      cat("to assign the last result to some variable.\n")
+    }else{
+      sts_filter$assign_to( out, df )
+    }
+  }else{
+    # OK. The result dataframe is already assigned using assign_to instruction.
+  }
+}
+

data/lib/statsailr_procs_base/proc_setting/proc_filter.rb

@@ -0,0 +1,49 @@
+module ProcFilter
+  include ProcSettingModule
+
+  source_r_file(__dir__, File.basename(__FILE__ , ".rb") + ".R")
+  validate_option("data", is_a: ["SymbolR", "String"], as: "SymbolR" , required: true)
+  validate_option("out", is_a: ["SymbolR", "String"], as: "String" , required: false)
+  finalizer_enabled()
+
+  def setting_for_cond( setting )
+    setting.libname = nil
+    setting.envname = "sts_filter"
+    setting.func_name = "wrap_filter"
+    setting.main_arg_and_how_to_treat = [ "cond", :read_as_one_str, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_select( setting )
+    setting.libname = nil
+    setting.envname = "sts_filter"
+    setting.func_name = "wrap_select"
+    setting.main_arg_and_how_to_treat = ["cond", :read_symbols_or_functions_as_strvec, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_assign_to( setting )
+    setting.libname = nil
+    setting.envname = "sts_filter"
+    setting.func_name = "assign_to"
+    setting.main_arg_and_how_to_treat = ["var", :read_as_strvec, :no_nil]
+    setting.runtime_args = {"df" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_finalizer( setting )
+    setting.libname = nil
+    setting.envname = "sts_filter"
+    setting.func_name = "finalizer"
+    setting.main_arg_and_how_to_treat = [ nil , nil , :allow_nil ]
+    setting.runtime_args = {"df" => previous_or( RBridge::r_nil()), "last_inst" => previous_inst_name(), "out" => param("out")}
+    setting.store_result = false
+    setting.print_opt = false
+  end
+end
+

data/lib/statsailr_procs_base/proc_setting/proc_ggplot.R

@@ -0,0 +1,39 @@
+sts_ggplot = new.env()
+
+library(rlang)
+library(ggplot2)
+
+sts_ggplot$mapping = function( data, assoc ){
+  assoc_lang = rlang::parse_exprs(assoc)
+  # https://github.com/tidyverse/ggplot2/issues/2675
+  gg = ggplot2::ggplot(data, ggplot2::aes( ,, !!! assoc_lang ))
+  return( gg )
+}
+
+sts_ggplot$geom_point_wrapper = function( gg, params = NULL, ... ){
+  if( is.null(params) ){
+    gg = gg + ggplot2::geom_point()
+  }else{
+    params_lang = rlang::parse_exprs(params)
+    # https://stackoverflow.com/questions/68379666/how-to-specify-a-package-or-namespace-for-rlangexec
+    # https://stackoverflow.com/questions/70202220/big-bang-operator-for-ggplot2-geom-point-function
+    # real_fun <- get("geom_point", envir=as.environment(paste0("package:", "ggplot2")))
+    # gg = gg + rlang::exec(real_fun, !!! params_lang , ...)
+    gg = gg + rlang::inject(ggplot2::geom_point( !!! params_lang , ...))
+  }
+  return( gg )
+}
+
+sts_ggplot$geom_histogram_wrapper = function( gg, params = NULL, ...){
+  if( is.null(params) ){
+    gg = gg + ggplot2::geom_histogram()
+  }else{
+    params_lang = rlang::parse_exprs(params)
+    gg = gg + rlang::inject(ggplot2::geom_histogram( !!! params_lang , ...))
+  }
+  return( gg )
+}
+
+sts_ggplot$finalizer = function( gg ){
+ plot(gg)
+}

data/lib/statsailr_procs_base/proc_setting/proc_ggplot.rb

@@ -0,0 +1,53 @@
+module ProcGgplot
+  include ProcSettingModule
+
+  source_r_file( __dir__, File.basename(__FILE__ , ".rb") + ".R")
+  validate_option("data", is_a: ["SymbolR", "String"], as: "SymbolR" , required: true)
+  finalizer_enabled()
+
+ def setting_for_mapping( setting )
+    setting.libname = nil
+    setting.envname = "sts_ggplot"
+    setting.func_name = "mapping"
+    setting.main_arg_and_how_to_treat = [ "assoc" , :read_named_args_as_named_strvec, :no_nil]
+    setting.runtime_args = {"data" => previous_or(param("data")) }
+    setting.store_result = true
+    setting.print_opt = false
+    setting.plot_opt = false
+  end
+
+  def setting_for_geom_point( setting )
+    setting.libname = nil
+    setting.envname = "sts_ggplot"
+    setting.func_name = "geom_point_wrapper"
+    setting.main_arg_and_how_to_treat = [ "params" , :read_named_args_as_named_strvec, :allow_nil]
+    setting.runtime_args = {"gg" => previous_or(RBridge::r_nil()) }
+    setting.store_result = true
+    setting.print_opt = false
+    setting.plot_opt = false
+  end
+
+  def setting_for_geom_histogram( setting )
+    setting.libname = nil
+    setting.envname = "sts_ggplot"
+    setting.func_name = "geom_histogram_wrapper"
+    setting.main_arg_and_how_to_treat = [ "params" , :read_named_args_as_named_strvec, :allow_nil]
+    setting.runtime_args = {"gg" => previous_or(RBridge::r_nil()) }
+    setting.store_result = true
+    setting.print_opt = false
+    setting.plot_opt = false
+  end
+
+  def setting_for_finalizer( setting )
+    setting.libname = nil
+    setting.envname = "sts_ggplot"
+    setting.func_name = "finalizer"
+    setting.main_arg_and_how_to_treat = [ nil, nil , :allow_nil]
+    setting.runtime_args = {"gg" => previous_or(RBridge::r_nil()) }
+    setting.store_result = false
+    setting.print_opt = false
+    setting.plot_opt = true
+  end
+
+end
+

data/lib/statsailr_procs_base/proc_setting/proc_group.R

@@ -0,0 +1,55 @@
+sts_group = new.env()
+
+library(rlang)
+
+sts_group$wrap_group_by = function(data, vars){
+    vars_lang = rlang::parse_exprs(vars)
+    grouped_data = rlang::inject(dplyr::group_by( data, !!! vars_lang ))
+    return(grouped_data)
+}
+
+
+sts_group$wrap_mutate = function(data, params){
+    params_lang = rlang::parse_exprs(params)
+    mutated_data = rlang::inject(dplyr::mutate( data, !!! params_lang ))
+    return(mutated_data)
+}
+
+
+sts_group$wrap_summarize = function(data, params){
+    params_lang = rlang::parse_exprs(params)
+    result = rlang::inject(dplyr::summarize( data, !!! params_lang ))
+    print(result)
+    return(data)
+}
+
+
+sts_group$assign_to = function(var, df){
+  df = as.data.frame(df)
+
+  if( (! is.character(var)) || length(var) != 1 ){
+    stop("var argument requires character vector with size of 1")
+  }
+
+  global_env = globalenv()
+  global_env[[ var[1] ]] = df
+  return(df)
+}
+
+sts_group$finalizer = function( df, last_inst, out ){
+  df = as.data.frame(df)
+
+  if( last_inst != "assign_to" ){
+    if( is.null(out) ){
+      cat("The last result is print out, and is not assigned to any variable.\n")
+      print(head(df))
+      cat("Use out= option for PROC COMMAND or use assing_to instruction\n")
+      cat("to assign the last result to some variable.\n")
+    }else{
+      sts_group$assign_to( out, df )
+    }
+  }else{
+    # OK. The result dataframe is already assigned using assign_to instruction.
+  }
+}
+

data/lib/statsailr_procs_base/proc_setting/proc_group.rb

@@ -0,0 +1,59 @@
+module ProcGroup
+  include ProcSettingModule
+
+  source_r_file(__dir__, File.basename(__FILE__ , ".rb") + ".R")
+  validate_option("data", is_a: ["SymbolR", "String"], as: "SymbolR" , required: true)
+  validate_option("out", is_a: ["SymbolR", "String"], as: "String" , required: false)
+  finalizer_enabled()
+
+  def setting_for_group_by( setting )
+    setting.libname = nil
+    setting.envname = "sts_group"
+    setting.func_name = "wrap_group_by"
+    setting.main_arg_and_how_to_treat = [ "vars", :read_as_strvec, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_mutate( setting )
+    setting.libname = nil
+    setting.envname = "sts_group"
+    setting.func_name = "wrap_mutate"
+    setting.main_arg_and_how_to_treat = ["params", :read_named_args_as_named_strvec, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_summarize( setting )
+    setting.libname = nil
+    setting.envname = "sts_group"
+    setting.func_name = "wrap_summarize"
+    setting.main_arg_and_how_to_treat = ["params", :read_named_args_as_named_strvec, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_assign_to( setting )
+    setting.libname = nil
+    setting.envname = "sts_group"
+    setting.func_name = "assign_to"
+    setting.main_arg_and_how_to_treat = ["var", :read_as_strvec, :no_nil]
+    setting.runtime_args = {"df" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_finalizer( setting )
+    setting.libname = nil
+    setting.envname = "sts_group"
+    setting.func_name = "finalizer"
+    setting.main_arg_and_how_to_treat = [ nil , nil , :allow_nil ]
+    setting.runtime_args = {"df" => previous_or( RBridge::r_nil()), "last_inst" => previous_inst_name(), "out" => param("out")}
+    setting.store_result = false
+    setting.print_opt = false
+  end
+end
+

data/lib/statsailr_procs_base/proc_setting/proc_sort.R

@@ -0,0 +1,32 @@
+sts_sort = new.env()
+
+sts_sort$wrap_arrange = function( data, cond ){
+  lang_cond = rlang::parse_exprs(cond)
+  df = dplyr::arrange(data, !!! lang_cond)
+  return(df)
+}
+
+sts_sort$assign_to = function(var, df){
+  if( (! is.character(var)) || length(var) != 1 ){
+    stop("var argument requires character vector with size of 1")
+  }
+
+  global_env = globalenv()
+  global_env[[ var[1] ]] = df
+  return(df)
+}
+
+sts_sort$finalizer = function( df, last_inst, out ){
+  if( last_inst != "assign_to" ){
+    if( is.null(out) ){
+      cat("The last result is print out, and is not assigned to any variable.\n")
+      print(head(df))
+      cat("Use out= option for PROC COMMAND or use assing_to instruction\n")
+      cat("to assign the last result to some variable.\n")
+    }else{
+      sts_sort$assign_to( out, df )
+    }
+  }else{
+    # OK. The result dataframe is already assigned using assign_to instruction.
+  }
+}

data/lib/statsailr_procs_base/proc_setting/proc_sort.rb

@@ -0,0 +1,40 @@
+module ProcSort
+  include ProcSettingModule
+
+  source_r_file(__dir__, File.basename(__FILE__ , ".rb") + ".R")
+  validate_option("data", is_a: ["SymbolR", "String"], as: "SymbolR" , required: true)
+  validate_option("out", is_a: ["SymbolR", "String"], as: "String" , required: false)
+  finalizer_enabled()
+
+  def setting_for_arrange( setting )
+    setting.libname = nil
+    setting.envname = "sts_sort"
+    setting.func_name = "wrap_arrange"
+    setting.main_arg_and_how_to_treat = [ "cond", :read_as_one_str, :no_nil]
+    setting.runtime_args = {"data" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_assign_to( setting )
+    setting.libname = nil
+    setting.envname = "sts_sort"
+    setting.func_name = "assign_to"
+    setting.main_arg_and_how_to_treat = ["var", :read_as_strvec, :no_nil]
+    setting.runtime_args = {"df" => previous_or( param("data") ) }
+    setting.store_result = true
+    setting.print_opt = false
+  end
+
+  def setting_for_finalizer( setting )
+    setting.libname = nil
+    setting.envname = "sts_sort"
+    setting.func_name = "finalizer"
+    setting.main_arg_and_how_to_treat = [ nil , nil , :allow_nil ]
+    setting.runtime_args = {"df" => previous_or( RBridge::r_nil()), "last_inst" => previous_inst_name(), "out" => param("out")}
+    setting.store_result = false
+    setting.print_opt = false
+  end
+
+end
+

data/lib/statsailr_procs_base/proc_setting/proc_uni.R

@@ -102,4 +102,25 @@ sts_uni$qqplot = function( results , var = NULL , qqline = FALSE, ... ){
   }
 }
 
+sts_uni$hist = function( data, vars ){
+  if ( (! is.null(var)) && (length(var) != 1) ){
+    stop("main argument needs to be length of 1 character vector")
+  }
+
+  size = length(vars)
+  par(mfrow(size, 1))
+
+  for( i in seq(1, size)){
+    var = vars[[i]]
+    g = data[[var]]
+    h <- hist(g, breaks = 10, density = 10,
+            col = "lightgray", xlab = "Accuracy", main = "Overall")
+    xfit <- seq(min(g), max(g), length = 40)
+    yfit <- dnorm(xfit, mean = mean(g), sd = sd(g))
+    yfit <- yfit * diff(h$mids[1:2]) * length(g)
+
+    lines(xfit, yfit, col = "black", lwd = 2)
+  }
+
+}
 

data/lib/statsailr_procs_base/version.rb

@@ -2,6 +2,6 @@
 
 module StatSailr
   module ProcsBase
-    VERSION = "0.1.0"
+    VERSION = "0.1.1"
   end
 end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: statsailr_procs_base
 version: !ruby/object:Gem::Version
-  version: 0.1.0
+  version: 0.1.1
 platform: ruby
 authors:
 - Toshihiro Umehara
-autorequire: 
+autorequire:
 bindir: exe
 cert_chain: []
-date: 2021-02-22 00:00:00.000000000 Z
+date: 2021-12-05 00:00:00.000000000 Z
 dependencies: []
 description: This 'statsailr_procs_base' gem provides a collection of fundamental
   PROCs for StatSailr program. This gem is essential for StatSailr to provide a useful
@@ -38,6 +38,12 @@ files:
 - lib/statsailr_procs_base/proc_setting/proc_common/factor.rb
 - lib/statsailr_procs_base/proc_setting/proc_common/numeric.R
 - lib/statsailr_procs_base/proc_setting/proc_common/numeric.rb
+- lib/statsailr_procs_base/proc_setting/proc_filter.R
+- lib/statsailr_procs_base/proc_setting/proc_filter.rb
+- lib/statsailr_procs_base/proc_setting/proc_ggplot.R
+- lib/statsailr_procs_base/proc_setting/proc_ggplot.rb
+- lib/statsailr_procs_base/proc_setting/proc_group.R
+- lib/statsailr_procs_base/proc_setting/proc_group.rb
 - lib/statsailr_procs_base/proc_setting/proc_mult.R
 - lib/statsailr_procs_base/proc_setting/proc_mult.rb
 - lib/statsailr_procs_base/proc_setting/proc_plot.R
@@ -45,6 +51,8 @@ files:
 - lib/statsailr_procs_base/proc_setting/proc_print.R
 - lib/statsailr_procs_base/proc_setting/proc_print.rb
 - lib/statsailr_procs_base/proc_setting/proc_reg.rb
+- lib/statsailr_procs_base/proc_setting/proc_sort.R
+- lib/statsailr_procs_base/proc_setting/proc_sort.rb
 - lib/statsailr_procs_base/proc_setting/proc_two.R
 - lib/statsailr_procs_base/proc_setting/proc_two.rb
 - lib/statsailr_procs_base/proc_setting/proc_uni.R
@@ -58,7 +66,7 @@ metadata:
   homepage_uri: https://github.com/niceume/statsailr_procs_base
   source_code_uri: https://github.com/niceume/statsailr_procs_base
   changelog_uri: https://github.com/niceume/statsailr_procs_base
-post_install_message: 
+post_install_message:
 rdoc_options: []
 require_paths:
 - lib
@@ -73,8 +81,8 @@ required_rubygems_version: !ruby/object:Gem::Requirement
     - !ruby/object:Gem::Version
       version: '0'
 requirements: []
-rubygems_version: 3.1.4
-signing_key: 
+rubygems_version: 3.2.31
+signing_key:
 specification_version: 4
 summary: Collection of fundamental PROCs for StatSailr program
 test_files: []