library(sqlhelper)
fn <- system.file( "examples/read_sql_execution_params.SQL",
package="sqlhelper" )
readLines( fn ) |> writeLines()
sql_tibble <- read_sql(fn)
sql_tibble
sql_tibble$sql
fn <- system.file( "examples/read_sql_comments.SQL", package="sqlhelper" )
readLines( fn ) |> writeLines()
sql_tibble <- read_sql(fn)
sql_tibble
sql_tibble$sql
Run the code above in your browser using DataLab