| 1 | require(Rappture) |
|---|
| 2 | |
|---|
| 3 | |
|---|
| 4 | lib = rp_lib("driver.xml") |
|---|
| 5 | cat("lib = ",lib,"\n") |
|---|
| 6 | |
|---|
| 7 | ee = rp_lib_get_string(lib,"input.string(ee).current") |
|---|
| 8 | cat("ee = ",ee," is.character = ",is.character(ee),"\n") |
|---|
| 9 | |
|---|
| 10 | dd = rp_lib_get_double(lib,"input.number(temperature).current") |
|---|
| 11 | cat("dd = ",dd," is.real = ",is.real(dd),"\n") |
|---|
| 12 | |
|---|
| 13 | ii = rp_lib_get_integer(lib,"input.integer(ii).current") |
|---|
| 14 | cat("ii = ",ii," is.integer = ",is.integer(ii),"\n") |
|---|
| 15 | |
|---|
| 16 | bb = rp_lib_get_boolean(lib,"input.boolean(bb).current") |
|---|
| 17 | cat("bb = ",bb," is.logical = ",is.logical(bb),"\n") |
|---|
| 18 | |
|---|
| 19 | nbytes = rp_lib_get_file(lib,"input.string(ee).current","myoutfile") |
|---|
| 20 | cat("nbytes = ",nbytes," is.integer = ",is.integer(nbytes),"\n") |
|---|
| 21 | |
|---|
| 22 | err = rp_lib_put_string(lib,"output.string(ps).current","voodoo",TRUE) |
|---|
| 23 | cat("err = ",err," is.integer = ",is.integer(err),"\n") |
|---|
| 24 | |
|---|
| 25 | d = as.real(12.45) |
|---|
| 26 | err = rp_lib_put_double(lib,"output.number(ps).current",d,TRUE) |
|---|
| 27 | cat("err = ",err," is.integer = ",is.integer(err),"\n") |
|---|
| 28 | |
|---|
| 29 | pf = rp_lib_put_file(lib,"output.string(pf).current","myoutfile",FALSE,FALSE) |
|---|
| 30 | cat("err = ",err," is.integer = ",is.integer(err),"\n") |
|---|
| 31 | |
|---|
| 32 | result = rp_lib_result(lib) |
|---|
| 33 | cat("result = ",result," is.integer = ",is.integer(result),"\n") |
|---|
| 34 | |
|---|
| 35 | result = rp_units_convert_double("0C","F") |
|---|
| 36 | cat("result = ",result," is.real = ",is.real(result),"\n") |
|---|
| 37 | |
|---|
| 38 | show = TRUE |
|---|
| 39 | result = rp_units_convert_string("100mm","m",show) |
|---|
| 40 | cat("result = ",result," is.character = ",is.character(result),"\n") |
|---|
| 41 | |
|---|
| 42 | show = FALSE |
|---|
| 43 | result = rp_units_convert_string("100mm","m",show) |
|---|
| 44 | cat("result = ",result," is.character = ",is.character(result),"\n") |
|---|
| 45 | |
|---|
| 46 | percent = as.integer(56) |
|---|
| 47 | result = rp_utils_progress(percent,"almost done...") |
|---|
| 48 | cat("result = ",result," is.integer = ",is.integer(result),"\n") |
|---|
| 49 | |
|---|
| 50 | result = rp_utils_progress(76,"almost done...") |
|---|
| 51 | cat("result = ",result," is.integer = ",is.integer(result),"\n") |
|---|
| 52 | |
|---|
| 53 | result = rp_utils_progress(36.546,"almost done...") |
|---|
| 54 | cat("result = ",result," is.integer = ",is.integer(result),"\n") |
|---|
