# NOT RUN {
# Define a new source (not from file).
sqrlSource("Orac",
"DBQ=StarOne;UID=Avon;PWD=<pwd>",
"Driver={Oracle in OraDB18Home1}")
# Review its configuration (parameter values).
Orac("config")
# Create a configuration file.
my.file <- tempfile()
writeLines(c("aCollapse = ', '",
"as.is = TRUE"),
my.file)
# Import that file.
Orac(config = my.file)
# Confirm imported values.
Orac("aCollapse")
Orac("as.is")
# Alternative forms.
Orac("config", my.file)
Orac(paste("config", my.file))
# Create a single-line file.
writeLines("c('NA', 'N-A', 'N/A')",
my.file)
# Import that file.
Orac(na.strings = my.file)
# Confirm the imported value.
Orac("na.strings")
# Create another configuration file.
writeLines(c("aCollapse = ,", "as.is = T",
"uid = Ensor", "dsn = 'Aristo'"),
my.file)
# Define and configure a new source from file.
sqrlSource("Caro", my.file)
# Confirm source creation.
Caro("config")
# Delete the file.
unlink(my.file)
# }
Run the code above in your browser using DataLab