Bytt ut runDayOfYear i autoreport-modul-tabell

[arnfinn]

Brukes ikke lenger når autoreport er i database (etter #201), så visning av "Neste" blir feil. Gjelder definisjonen av nextDate her:

rapbase/R/autoReport.R

Lines 824 to 860 in 804cc84

	if (target == "db") {
	if (length(autoRep$id) == 0) {
	return(as.matrix(autoRep))
	}
	l <- list()
	for (i in seq_len(nrow(autoRep))) {
	runDayOfYear <- as.vector(
	as.integer(strsplit(autoRep[i, ]$runDayOfYear, ",")[[1]])
	)
	nextDate <- findNextRunDate(
	runDayOfYear = runDayOfYear,
	startDate = autoRep[i, ]$startDate,
	returnFormat = dateFormat
	)
	if (as.Date(nextDate, format = dateFormat) > autoRep[i, ]$terminateDate) {
	nextDate <- "Utl\u00F8pt"
	}
	dataSource <- autoRep[i, ]$organization
	if (!is.null(mapOrgId)) {
	if (dataSource %in% mapOrgId$id) {
	dataSource <- mapOrgId$name[mapOrgId$id == dataSource]
	}
	}
	r <- list(
	"Rapport" = autoRep[i, ]$synopsis,
	"Datakilde" = dataSource,
	"Mottaker" = autoRep[i, ]$email,
	"Periode" = autoRep[i, ]$intervalName,
	"Slutt" = strftime(
	as.Date(
	autoRep[i, ]$terminateDate
	),
	format = "%b %Y"
	),
	"Neste" = nextDate,
	"Endre" = as.character(