1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
#!/usr/bin/env Rscript
#
# @license Apache-2.0
#
# Copyright (c) 2018 The Stdlib Authors.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# Set the precision to 16 digits:
options( digits = 16 );
# Set the PRNG seed:
set.seed( 569 );
#' Generate test fixtures.
#'
#' @examples
#' main();
main <- function() {
#' Get the script filepath.
#'
#' @return The absolute path of this script
#'
#' @examples
#' filepath <- get_script_path();
get_script_path <- function() {
args <- commandArgs( trailingOnly = FALSE );
needle <- "--file=";
match <- grep( needle, args );
if ( length( match ) > 0 ) {
# Rscript:
filepath <- sub( needle, "", args[match] );
} else {
ls_vars <- ls( sys.frames()[[1]] )
if ( "fileName" %in% ls_vars ) {
# Source'd via RStudio:
filepath <- sys.frames()[[1]]$fileName; # nolint
} else {
# Source'd via R console:
filepath <- sys.frames()[[1]]$ofile;
}
}
return( normalizePath( filepath ) );
}
#' Convert a data structure to JSON.
#'
#' @param x A data structure to convert
#' @return JSON blob
#'
#' @examples
#' x <- seq( -6.5, 25, 0.5 );
#' json <- to_json( x );
to_json <- function( x ) {
return( jsonlite::toJSON( x, digits = 16, auto_unbox = TRUE ) );
}
#' Generate an output absolute filepath based on the script directory.
#'
#' @param name An output filename
#' @return An absolute filepath
#'
#' @examples
#' filepath <- get_filepath( "data.json" );
get_filepath <- function( name ) {
return( paste( source_dir, "/", name, sep = "" ) );
}
# Get the directory of this script:
source_dir <- dirname( get_script_path() );
# Generate test fixture data:
lambda <- sample( seq( 0.1, 20.0, length.out = 1000 ) );
x <- sample( seq( 0.1, 20.0, length.out = 1000 ) );
y <- pexp( x, lambda, log = TRUE );
data <- list( lambda = lambda, x = x, expected = y );
# Convert fixture data to JSON:
data <- to_json( data );
# Write the data to file...
filepath <- get_filepath( "data.json" );
write( data, filepath );
}
main();
|
