Too much printing to screen when catch[no_area,] is large

[kellijohnson-NOAA]

nwfscSurvey/R/pull_catch.R

Lines 227 to 228 in 98a2960

	print(
	catch[no_area, c("trawl_id", "year", "area_swept_ha_der", "cpue_kg_per_ha_der", "total_catch_numbers")])

led to 48712 rows that were attempted to print to the screen when I ran

nwfscSurvey::pull_catch(survey = "NWFSC.Slope")

I think we should implement a check to see how large no_area is and truncate the printing if it is over a certain size and warn the user that just a few rows are shown.

[chantelwetzel-noaa]

This have been revised in pull request #156 reducing what is printed to the screen.