Remove apc table

[kellijohnson-NOAA]

hakedataUSA/R/new_catch.R

Lines 107 to 127 in 6eaeed7

	# todo: don't subtract tribal from shoreside when they are not
	# added together
	apc <- utils::read.csv(file.apc, check.names = FALSE)
	apc[2, grep("shore", x = colnames(apc), ignore.case = TRUE)] <-
	sprintf("%.0f", inc[inc[, "Year"] == year, "US_shore"] -
	sum(ti[ti[, "year"] == year, "catch"]))
	apc[2, grep("CP", x = colnames(apc), ignore.case = TRUE)] <-
	sprintf("%.0f", inc[inc[, "Year"] == year, "atSea_US_CP"])
	apc[2, grep("MS", x = colnames(apc), ignore.case = TRUE)] <-
	sprintf("%.0f", inc[inc[, "Year"] == year, "atSea_US_MS"])
	apc[2, grep("TAC", x = colnames(apc), ignore.case = TRUE)] <-
	sprintf("%.0f", inc[inc[, "Year"] == year,
	grep("UStotal", colnames(inc), ignore.case = TRUE)])
	apc[2, grep("Tribal", x = colnames(apc), ignore.case = TRUE)] <-
	sprintf("%.0f", sum(ti[ti[, "year"] == year, "catch"]))
	apc[3, -1] <- sprintf("%2.1f%%",
	type.convert(apc[2, -1], as.is = TRUE) /
	type.convert(apc[1, -1], as.is = TRUE) * 100
	)
	colnames(apc)[1] <- ""

see pacific-hake/hake-assessment#966