library(sqlhelper)
config_filename <- system.file("examples/sqlhelper_db_conf.yml",
package="sqlhelper")
readLines( config_filename ) |> writeLines()
connect(
config_filename,
exclusive=TRUE)
DBI::dbWriteTable( default_conn(), "iris", iris)
sf::st_write(spData::congruent, default_conn(), "congruent")
sf::st_write(spData::incongruent, live_connection("pool_sqlite"), "incongruent")
run_files_ex1 <- system.file("examples/run_files_ex1.sql", package="sqlhelper")
readLines( run_files_ex1 ) |> writeLines()
run_files_ex2 <- system.file("examples/run_files_ex2.sql", package="sqlhelper")
readLines( run_files_ex2 ) |> writeLines()
n_longest_petals <- 5
results <- run_files( c( run_files_ex1, run_files_ex2 ) )
names(results)
results$how_many_irises
results$n_longest_setosa_petal_lengths
plot(results$get_congruent, border = "orange")
plot(results$get_incongruent, border = "blue", add=TRUE)
Run the code above in your browser using DataLab