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