folder <- withr::local_tempdir("test", .local_envir = .GlobalEnv)
cnt <- connectors(fs = connector_fs(folder))
# Extract the datasources to a config file
yml_file <- tempfile(fileext = ".yml")
write_datasources(cnt, yml_file)
# Check the content of the file
cat(readLines(yml_file), sep = "\n")
# Reconnect using the new config file
re_connect <- connect(yml_file)
re_connect
Run the code above in your browser using DataLab