File Coverage

blib/lib/Statistics/embedR.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Statistics::embedR;

use 5.010;
use warnings;
use strict;
use Statistics::useR;

our $VERSION = "0.10.1";

state $r = {};

sub new {
    return $r if ref $r ne "HASH";

    my $that = shift;
    my $class = ref $that || $that;
    init_R;
    bless $r, $class;
}

sub DESTROY {
    my $self = shift;
    $self->quit("save='no'");
    end_R;
}

sub AUTOLOAD {
    my ($name) = our $AUTOLOAD =~ /::(\w+)$/;

    my $method = sub {
        my $self = shift;
        $name =~ s/_/./g;
        $self->R("$name(@_)");
    };

    no strict 'refs';
    *{ $AUTOLOAD } = $method;
    goto &$method;
}

sub eval {
    my $self = shift;
    eval_R(join "\n", @_);
}

sub load {
    my $self = shift;
    $self->library($_) for @_;
}

sub R {
    my $self = shift;
    my $result = $self->eval(@_)->getvalue;
    my @keys = keys %$result;
    return $result unless @keys == 1;
    return $result unless $keys[0] ~~ ['int', 'str', 'real'];

    my $values = $result->{$keys[0]};
    return @$values == 1 ? $values->[0] : $values;
}

sub arry2R {
    my $self = shift;
    my ($src, $dest) = @_;
    Statistics::RData->new(
        data      => {val => $src},
        varname   => $dest
    );
    $self->eval("$dest <- $dest\$val");
}

1; # End of Statistics::embedR

__END__