Java REXP.isString方法代码示例

import org.rosuda.REngine.REXP; //导入方法依赖的package包/类
private Integer[] getNumbers(REXP ids) {
	if(ids.isString()) {
		return Arrays.stream(((REXPString)ids).asStrings())//NOSONAR: This stream doesn't need to be closed
					.map(
							id -> {
								if(id != null) {
									return Integer.valueOf(id);
								} else {
									return null;
								}
							}
					).toArray(Integer[]::new);
	} else {
		int[] idsAsArray = ((REXPInteger)ids).asIntegers();
		return (Integer[])Arrays.stream(idsAsArray).boxed().toArray(Integer[]::new);//NOSONAR: This stream doesn't need to be closed
	}
}
 

import org.rosuda.REngine.REXP; //导入方法依赖的package包/类
@Override
public <T> T eval(String command) throws FOSException {
    try {
        if(logger.isTraceEnabled()) {
            logger.trace(command);
        }

        connection.assign("trycodeblock", command);

        REXP result = connection.parseAndEval("try(eval(parse(text=trycodeblock)),silent=TRUE)");
        if (result != null && result.inherits("try-error")) {
            throw new FOSException(result.toDebugString());
        }
        if (result == null || result.isNull()) {
            return null;
        } else if( result.isVector() && result.isNumeric()) {
          return (T) result.asDoubles();
        } else if (result.isInteger()) {
            return (T) new Integer(result.asInteger());
        } else if (result.isNumeric()) {
            return (T) new Double(result.asDouble());
        } else if (result.isString()) {
            return (T) result.asString();
        }
        return null;
    } catch (Exception e) {
        throw new FOSException("Error executing R script.", e);
    }
}
 

import org.rosuda.REngine.REXP; //导入方法依赖的package包/类
public InputStream getStream() {
	try {

		semaphore.acquire();
		// System.out.println("Semaphore acquired");
		// System.out.flush();

		/* The R Cairo package is used for high-quality graphics */
		boolean CairoOK = rc.parseAndEval(
				"suppressWarnings(require('Cairo',quietly=TRUE))")
				.asInteger() > 0;
		if (!CairoOK) {
			System.err.println("RVaadin: Could not find Cairo package");
			rc.parseAndEval("cat('RVaadin: Error: "
					+ "Could not find Cairo package.\n')");
		}

		/*
		 * Observe the usage of R's try and error mechanism in Java, and
		 * remember that device == 'png', 'pdf', ...
		 */
		REXP xp = rc.parseAndEval("try(Cairo" + device.toUpperCase()
				+ "('tmp." + device + "', " + "width=" + width
				+ ", height=" + height + "))");

		if (xp.inherits("try-error")) {

			System.err.println("Can't open " + device
					+ " graphics device:\n" + xp.asString());
			/* Plot the first warning into the error console */
			REXP w = rc.eval("if (exists('last.warning') && "
					+ "length(last.warning)>0) "
					+ "names(last.warning)[1] else 0");
			if (w.isString()) {
				System.err.println(w.asString());
			}
		}

		/*
		 * Now, state the actual plot command and then close the Cairo
		 * device to produce the graphics
		 */
		rc.parseAndEval(RPlotCall);
		rc.parseAndEval("dev.off()");

		/*
		 * The author of RServe claims that there is no I/O API for REngine
		 * as it's actually more efficient to use R.
		 */

		String fileName = "tmp." + device;

		xp = rc.parseAndEval("r <- readBin('" + fileName
				+ "','raw', file.info('" + fileName + "')$size); "
				+ "unlink('" + fileName + "'); r");

		return new ByteArrayInputStream(xp.asBytes());

	} catch (RserveException rse) {
		/* RserveException (transport layer - e.g. Rserve is not running */
		System.out.println(rse);
		return null;

	} catch (REXPMismatchException mme) {
		/* REXP mismatch exception (we got something else as expected) */
		System.out.println(mme);
		mme.printStackTrace();
		return null;

	} catch (Exception e) {
		/* something else */
		System.err.println("Errors in RPLotCall: " + e.getMessage());
		e.printStackTrace();
		return null;

	} finally {
		semaphore.release();
		// System.out.println("Semaphore released");
		// System.out.flush();
	}
}