# NOT RUN {
src <- list(project_id = "publicdata", dataset_id = "samples", table_id = "shakespeare")
dest <- list(project_id = "myproject", dataset_id = "mydata", table_id = "shakespeare")
doubled <- dest
doubled$table_id <- "double_shakespeare"
copy_table(src, dest)
copy_table(list(src, dest), doubled)
# }
Run the code above in your browser using DataLab