# Define a new source (not from file).
sqrlSource("Orac", "UID=Avon;PWD=",
"Driver=Oracle 19 ODBC driver",
"Server=db.starone.mil:1521/dwprd")
# Review its configuration (parameter values).
Orac("config")
# Create a file, containing only 'TRUE'.
file1 <- normalizePath(tempfile(), "/", FALSE)
writeLines("TRUE", file1)
# Create a file, containing named parameter values.
file2 <- normalizePath(tempfile(), "/", FALSE)
writeLines(c("dsn = 'Aristo'",
"uid = 'Ensor'",
"autoclose = TRUE",
"as.is = FALSE"),
file2)
# Create a configuration file, referencing the two above.
# Observe the use of temporary (non-parameter) variable 'x'.
file3 <- tempfile()
writeLines(c("aCollapse = ', '",
paste0("verbose = \"", file1, "\""),
"x <- 4",
"max = sqrt(100 * x)",
"as.is = TRUE",
paste0("autoclose = '", file2, "'")),
file3)
readLines(file3)
# Configure from the main (third) file.
Orac(config = file3)
# Alternative file-import forms.
Orac("config", file3)
Orac(paste("config", file3))
# Confirm imported values.
# Only 'autoclose' has been read from file2.
Orac("config")
# Import one parameter value from a file
# containing only a single unnamed value.
Orac(readOnlyOptimize = file1)
Orac("readOnlyOptimize")
# Import only a single specific parameter value
# from a file containing several named values.
Orac(uid = file2)
Orac("uid")
# Define and configure a new source from file.
sqrlSource("Caro", file2)
Caro("config")
# Configuration can also be performed from a named list,
# which could be generated by any R function or script.
Caro(config = list(autoclose = FALSE, max = 100))
Caro("config")[c("autoclose", "max")]
# Delete files.
unlink(c(file1, file2, file3))
Run the code above in your browser using DataLab