strange logic in banc_cave_tables

[jefferis]

bancr/R/cave-tables.R

Lines 27 to 34 in b1829a3

	banc_cave_tables <- function(datastack_name = NULL,
	select = NULL){
	if(is.null(datastack_name))
	datastack_name=banc_datastack_name()
	fac <- flywire_cave_client(datastack_name = datastack_name)
	dsinfo <- fac$info$get_datastack_info()
	if (!is.null(dsinfo$soma_table))
	return(dsinfo$soma_table)

Is this correct @alexanderbates?

[jefferis]

duplicate of #3 (train wifi issues I think)