flatten_gutenberg_id function

Subset gutenberg_id from df if necessary