1 | .packageName <- 'Rappture' |
---|
2 | |
---|
3 | rp_lib <- function(lib) { |
---|
4 | .Call("RPRLib",lib) |
---|
5 | } |
---|
6 | |
---|
7 | rp_lib_get_string <- function(handle, path) { |
---|
8 | .Call("RPRLibGetString",handle,path) |
---|
9 | } |
---|
10 | |
---|
11 | rp_lib_get_double <- function(handle, path) { |
---|
12 | .Call("RPRLibGetDouble",handle,path) |
---|
13 | } |
---|
14 | |
---|
15 | rp_lib_get_integer <- function(handle, path) { |
---|
16 | .Call("RPRLibGetInteger",handle,path) |
---|
17 | } |
---|
18 | |
---|
19 | rp_lib_get_boolean <- function(handle, path) { |
---|
20 | .Call("RPRLibGetBoolean",handle,path) |
---|
21 | } |
---|
22 | |
---|
23 | rp_lib_get_file <- function(handle, path, fname) { |
---|
24 | .Call("RPRLibGetFile",handle,path,fname) |
---|
25 | } |
---|
26 | |
---|
27 | rp_lib_put_string <- function(handle, path, value, append) { |
---|
28 | .Call("RPRLibPutString",handle,path,value,append) |
---|
29 | } |
---|
30 | |
---|
31 | rp_lib_put_double <- function(handle, path, value, append) { |
---|
32 | .Call("RPRLibPutDouble",handle,path,value,append) |
---|
33 | } |
---|
34 | |
---|
35 | rp_lib_put_file <- function(handle, path, fname, compress, append) { |
---|
36 | .Call("RPRLibPutFile",handle,path,fname,compress,append) |
---|
37 | } |
---|
38 | |
---|
39 | rp_lib_result <- function(handle) { |
---|
40 | .Call("RPRLibResult",handle) |
---|
41 | } |
---|
42 | |
---|
43 | rp_units_convert_double <- function(from,to) { |
---|
44 | .Call("RPRUnitsConvertDouble",from,to) |
---|
45 | } |
---|
46 | |
---|
47 | rp_units_convert_string <- function(from,to,showUnits) { |
---|
48 | .Call("RPRUnitsConvertString",from,to,showUnits) |
---|
49 | } |
---|
50 | |
---|
51 | rp_utils_progress <- function(percent,message) { |
---|
52 | .Call("RPRUtilsProgress",percent,message) |
---|
53 | } |
---|
54 | |
---|
55 | .onLoad <- function(lib,pkg) { |
---|
56 | } |
---|