コード例 #1
0
  /**
   * returns a single Double result. Assumes that the R code uses the variable "results" for storing
   * the results of the process.
   *
   * @param template
   * @return
   */
  protected Double getSingleResult(String template) {
    code.clear();
    code.addRCode(template);

    String call = "results";

    caller.setRCode(code);
    caller.runAndReturnResultOnline(call);
    String[] res = caller.getParser().getAsStringArray(call);

    // the codestore is always updated at the end of the operation
    addToCodestore(code, call);

    return convertStringToNumber(res[0]);
  }
コード例 #2
0
  protected void installPackageIfNotInstalled(String packageName) {
    code.clear();
    code.addRCode(
        "if(!('"
            + packageName
            + "' %in% installed.packages()[,\"Package\"])){install.packages('"
            + packageName
            + "')}");
    caller.setRCode(code);

    String call = "library('" + packageName + "')";

    caller.runAndReturnResultOnline("library('" + packageName + "')");
    // the codestore is always updated at the end of the operation
    addToCodestore(code, call);
  }