sqa 0.0.14 → 0.0.17

data/lib/patches/daru/plotting/svg-graph/category.rb

@@ -1,55 +0,0 @@
-# lib/patches/daru/plotting/svg-graph/category.rb
-
-# NOTE: Code originally from Gruff
-# TODO: Tailor the code to SvgGraph
-
-module Daru
-  module Plotting
-    module Category
-      module SvgGraphLibrary
-        def plot opts={}
-          type = opts[:type] || :bar
-          size = opts[:size] || 500
-          case type
-          when :bar, :pie, :sidebar
-            plot = send("category_#{type}_plot".to_sym, size, opts[:method])
-          else
-            raise ArgumentError, 'This type of plot is not supported.'
-          end
-          yield plot if block_given?
-          plot
-        end
-
-        private
-
-        def category_bar_plot size, method
-          plot = SvgGraph::Bar.new size
-          method ||= :count
-          dv = frequencies(method)
-          plot.labels = size.times.to_a.zip(dv.index.to_a).to_h
-          plot.data name || :vector, dv.to_a
-          plot
-        end
-
-        def category_pie_plot size, method
-          plot = SvgGraph::Pie.new size
-          method ||= :count
-          frequencies(method).each_with_index do |data, index|
-            plot.data index, data
-          end
-          plot
-        end
-
-        def category_sidebar_plot size, method
-          plot = SvgGraph::SideBar.new size
-          plot.labels = {0 => (name.to_s || 'vector')}
-          method ||= :count
-          frequencies(method).each_with_index do |data, index|
-            plot.data index, data
-          end
-          plot
-        end
-      end
-    end
-  end
-end

data/lib/patches/daru/plotting/svg-graph/dataframe.rb

@@ -1,105 +0,0 @@
-# lib/patches/daru/plotting/svg-graph/dataframe.rb
-
-# NOTE: Code originally from Gruff
-# TODO: Tailor the code to SvgGraph
-
-module Daru
-  module Plotting
-    module DataFrame
-      module SvgGraphLibrary
-        def plot opts={}
-          opts[:type] ||= :line
-          opts[:size] ||= 500
-
-          x     = extract_x_vector  opts[:x]
-          y     = extract_y_vectors opts[:y]
-
-          opts[:type]  = process_type opts[:type], opts[:categorized]
-
-          type = opts[:type]
-
-          if %o[line bar scatter].include? type
-            graph = send("#{type}_plot", size, x, y)
-
-          elsif :scatter_categorized == type
-            graph = scatter_with_category(size, x, y, opts[:categorized])
-
-          else
-            raise ArgumentError, 'This type of plot is not supported.'
-          end
-
-          yield graph if block_given?
-          graph
-        end
-
-        private
-
-        def process_type type, categorized
-          type == :scatter && categorized ? :scatter_categorized : type
-        end
-
-        ##########################################################
-        def line_plot size, x, y
-          plot = SvgGraph::Line.new size
-          plot.labels = size.times.to_a.zip(x).to_h
-          y.each do |vec|
-            plot.data vec.name || :vector, vec.to_a
-          end
-          plot
-        end
-
-        ##########################################################
-        def bar_plot size, x, y
-          plot = SvgGraph::Bar.new size
-          plot.labels = size.times.to_a.zip(x).to_h
-          y.each do |vec|
-            plot.data vec.name || :vector, vec.to_a
-          end
-          plot
-        end
-
-        ##########################################################
-        def scatter_plot size, x, y
-          plot = SvgGraph::Scatter.new size
-          y.each do |vec|
-            plot.data vec.name || :vector, x, vec.to_a
-          end
-          plot
-        end
-
-        ##########################################################
-        def scatter_with_category size, x, y, opts
-          x       = Daru::Vector.new x
-          y       = y.first
-          plot    = SvgGraph::Scatter.new size
-          cat_dv  = self[opts[:by]]
-
-          cat_dv.categories.each do |cat|
-            bools = cat_dv.eq cat
-            plot.data cat, x.where(bools).to_a, y.where(bools).to_a
-          end
-
-          plot
-        end
-
-        def extract_x_vector x_name
-          x_name && self[x_name].to_a || index.to_a
-        end
-
-        def extract_y_vectors y_names
-          y_names =
-            case y_names
-            when nil
-              vectors.to_a
-            when Array
-              y_names
-            else
-              [y_names]
-            end
-
-          y_names.map { |y| self[y] }.select(&:numeric?)
-        end
-      end
-    end
-  end
-end

data/lib/patches/daru/plotting/svg-graph/vector.rb

@@ -1,102 +0,0 @@
-# lib/patches/daru/plotting/svg-graph/vector.rb
-
-# NOTE: Code originally from Gruff
-# TODO: Tailor the code to SvgGraph
-
-module Daru
-  module Plotting
-    module Vector
-      module SvgGraphLibrary
-        def plot opts={}
-          opts[:type]   ||= :line
-          opts[:size]   ||= 500   # SMELL: What is this?
-          opts[:height] ||= 720
-          opts[:width]  ||= 720
-          opts[:title]  ||= name || :vector
-
-          debug_me{[
-            :opts,
-            :self
-          ]}
-
-          if %i[line bar pie scatter sidebar].include? type
-            graph = send("#{type}_plot", opts)
-          else
-            raise ArgumentError, 'This type of plot is not supported.'
-          end
-
-          yield graph if block_given?
-
-          graph
-        end
-
-        private
-
-        ####################################################
-        def line_plot opts={}
-          graph  = SVG::Graph::Line.new opts
-
-          graph.add_data(
-            data:   to_a,
-            title:  opts[:title]
-          )
-
-          graph
-        end
-
-
-        ####################################################
-        def bar_plot opts
-          graph  = SVG::Graph::Bar.new opts
-
-          graph.add_data(
-            data:   to_a,
-            title:  opts[:title]
-          )
-
-          graph
-        end
-
-
-        ####################################################
-        def pie_plot opts
-          graph  = SVG::Graph::Pie.new opts
-
-          graph.add_data(
-            data:   to_a,
-            title:  opts[:title]
-          )
-
-          graph
-        end
-
-
-        ####################################################
-        def scatter_plot size
-          graph  = SVG::Graph::Plot.new opts
-
-
-          graph.add_data(
-            data:   to_a.zip(index.to_a)
-            title:  opts[:title]
-          )
-
-          graph
-        end
-
-
-        ####################################################
-        def sidebar_plot size
-          graph  = SVG::Graph::BarHorizontal.new opts
-
-          graph.add_data(
-            data:   to_a,
-            title:  opts[:title]
-          )
-
-          graph
-        end
-      end
-    end
-  end
-end

data/lib/patches/daru/plotting/svg-graph.rb

@@ -1,7 +0,0 @@
-# lib/patches/daru/plotting/svg-graph.rb
-
-require 'svg-graph'
-
-require_relative 'SvgGraph/category.rb'
-require_relative 'SvgGraph/vector.rb'
-require_relative 'SvgGraph/dataframe.rb'

data/lib/patches/daru/vector.rb

@@ -1,19 +0,0 @@
-# lib/patches/daru/vector.rb
-
-module Daru
-	module Vector
-
-		def plotting_lig lib
-			if :svg_graph = lib
-        @plotting_library = lib
-        if Daru.send("has_#{lib}?".to_sym)
-          extend Module.const_get(
-            "Daru::Plotting::Vector::#{lib.to_s.capitalize}Library"
-          )
-        end
-			else
-				super
-			end
-		end
-	end
-end

data/lib/patches/daru.rb

@@ -1,19 +0,0 @@
-# lib/patches/daru.rb
-
-require_relative 'daru/category'
-require_relative 'daru/data_frame'
-require_relative 'daru/vector'
-
-module Daru
-	create_has_library :svg_graph
-
-  class << self
-		def plotting_library lib
-			if :svg_graph = lib
-				@plotting_library = lib
-			else
-				super
-			end
-		end
-	end
-end