phpDeployR/test_old.php at master · jorgenhorstink/phpDeployR · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
<?php

/**
 * @author Jorgen Horstink <mail@jorgenhorstink.nl>
 * @copyright Copyright (c) 2010, Jorgen Horstink
 * @licency Apache License, Version 2.0
 */

define('DEPLOYR_DIRECTORY', 'classes/deployR');
define('SESSION_DIRECTORY', 'classes/session');
define('COLLECTION_DIRECTORY', 'classes/collection');

set_include_path(get_include_path() . PATH_SEPARATOR . '/');

//require_once DEPLOYR_DIRECTORY . '/DeployRSession.php';
require_once DEPLOYR_DIRECTORY . '/DeployRClient.php';
require_once DEPLOYR_DIRECTORY . '/impl/DeployRBasicAuthentication.php';

require_once SESSION_DIRECTORY . '/WebSession.php';
require_once SESSION_DIRECTORY . '/SessionFactory.php';

// Added to .gitignore, contains the USERNAME, PASSWORD and DEPLOYR_URL constants
require_once 'conf/conf.php';

SessionFactory::setInstance(WebSession::getInstance());
$session = SessionFactory::getInstance();

// Just for testing.
$session->removeNamespace('deployr');
$session->removeNamespace('deployr_sessions');


try {
    // Injects a Session object to be able bind the current logged in user to the Client.
    $client = DeployRClient::createHttpClient(DEPLOYR_URL, $session);

    $client->open();

    // Login checks if the user is already logged in. If so, the injected session object has a valid cookieId
    $client->login(
        new DeployRBasicAuthentication(
            USERNAME,
            PASSWORD
        )
    );

    // Creates a new session if mySession does not exist yet, otherwise use the
    // Session with name mySession.
    /*
    $pSession = $client->createSession('mySession');

    $deployRExecution = $pSession->executeCode("print(rnorm(100))");

    $deployRExecution = $pSession->executeScript('average', null, '
        {
            "numbers": {
                "type" : "vector",
                "value" : [4,5,6]
            }
        }
    ', 'average');

    $deployRExecution = $pSession->executeCode(
        "myVector <- rnorm(100); png(\"myplot.png\"); plot(myVector); dev.off();",
        "myVector",
        "myplot.png"
    );

    var_dump($pSession->getHistory());
    */


    //var_dump($client->getObjectRepository()->listObjects());
    //echo "<plaintext>";
    //var_dump($client->getProjectRepository()->getProjects());

    $pSession = $client->createSession('mySession');

    $deployRExecution = $pSession->executeCode(
        "myVector <- rnorm(100); png(\"myplot.png\"); plot(myVector); dev.off();",
        "myVector",
        "myplot.png"
    );

    $file = $deployRExecution->getFiles()->get("myplot.png");

    echo "<img src='" . $file . "' />";
    /*
    $deployRExecution = $pSession->executeCode("n <- rnorm(100)");

    var_dump($pSession->getObjectManager()->get(new DeployRRObject("n")));

    var_dump($pSession->getObjectManager()->delete(new DeployRRObject("n")));

    var_dump($pSession->getObjectManager()->get(new DeployRRObject("n")));
    */
    /*
    var_dump($client->getObjectRepository()->getObjects());
    die();

    $pSession = $client->loadProject(new DeployRProject("PROJ-2679b218-b014-469f-a8ec-b3feead67922"));

    $deployRExecution = $pSession->executeCode("print(rnorm(100))");

    var_dump($pSession->getHistory());
    */
} catch (DeployRUnauthorizedException $e) {
    echo $e->getMessage();
} catch (DeployRNotFoundException $e) {
    echo $e->getMessage();
} catch (Exception $e) {
    echo $e->getMessage();
}

?>