fix

ginberg · ginberg · commit 6e851557a8f4 · 2024-10-10T09:31:44.000+02:00
diff --git a/R/runTimeSeries.R b/R/runTimeSeries.R
@@ -88,6 +88,7 @@ createCalendarPeriodsTable <- function(connection, tempEmulationSchema, timeSeri
     tempEmulationSchema = tempEmulationSchema,
     camelCaseToSnakeCase = TRUE
   )
+  return(calendarPeriods)
 }
 
 getTimeSeries <- function(
@@ -137,10 +138,10 @@ getTimeSeries <- function(
   }
   
   ## Create calendar periods table
-  createCalendarPeriodsTable(connection, 
-                             tempEmulationSchema, 
-                             timeSeriesMinDate, 
-                             timeSeriesMaxDate)
+  calendarPeriods <- createCalendarPeriodsTable(connection, 
+                                                tempEmulationSchema, 
+                                                timeSeriesMinDate, 
+                                                timeSeriesMaxDate)
   
   tsSetUpSql <- "-- #time_series
                 DROP TABLE IF EXISTS #time_series;

Original file line number	Diff line number	Diff line change
`@@ -88,6 +88,7 @@ createCalendarPeriodsTable <- function(connection, tempEmulationSchema, timeSeri`
`88`	`88`	`tempEmulationSchema = tempEmulationSchema,`
`89`	`89`	`camelCaseToSnakeCase = TRUE`
`90`	`90`	`)`
	`91`	`+ return(calendarPeriods)`
`91`	`92`	`}`
`92`	`93`
`93`	`94`	`getTimeSeries <- function(`
`@@ -137,10 +138,10 @@ getTimeSeries <- function(`
`137`	`138`	`}`
`138`	`139`
`139`	`140`	`## Create calendar periods table`
`140`		`- createCalendarPeriodsTable(connection,`
`141`		`- tempEmulationSchema,`
`142`		`- timeSeriesMinDate,`
`143`		`- timeSeriesMaxDate)`
	`141`	`+ calendarPeriods <- createCalendarPeriodsTable(connection,`
	`142`	`+ tempEmulationSchema,`
	`143`	`+ timeSeriesMinDate,`
	`144`	`+ timeSeriesMaxDate)`
`144`	`145`
`145`	`146`	`tsSetUpSql <- "-- #time_series`
`146`	`147`	`DROP TABLE IF EXISTS #time_series;`