Fixing issue with inp_amount and lstm

davidrsch · davidrsch · commit ab31441e8a6d · 2024-10-19T22:05:44.000+02:00
diff --git a/app/view/run_modal.R b/app/view/run_modal.R
@@ -136,10 +136,12 @@ server <- function(id, data, sequence, forecast, transformations,
         )
         iterations_data <- iterations()[input$iterations_table_rows_all, ] |>
           mutate(
-            inp_amount = as.numeric(inp_amount),
-            lstm = as.numeric(lstm),
+            inp_amount = as.numeric(as.character(inp_amount)),
+            lstm = as.numeric(as.character(lstm)),
+            epoch = epoch(),
             tests = tests()
           )
+        print(iterations_data)
         results(
           process(data(), sequence(), forecast(), iterations_data)
         )

Original file line number	Diff line number	Diff line change
`@@ -136,10 +136,12 @@ server <- function(id, data, sequence, forecast, transformations,`
`136`	`136`	`)`
`137`	`137`	`iterations_data <- iterations()[input$iterations_table_rows_all, ] \|>`
`138`	`138`	`mutate(`
`139`		`- inp_amount = as.numeric(inp_amount),`
`140`		`- lstm = as.numeric(lstm),`
	`139`	`+ inp_amount = as.numeric(as.character(inp_amount)),`
	`140`	`+ lstm = as.numeric(as.character(lstm)),`
	`141`	`+ epoch = epoch(),`
`141`	`142`	`tests = tests()`
`142`	`143`	`)`
	`144`	`+ print(iterations_data)`
`143`	`145`	`results(`
`144`	`146`	`process(data(), sequence(), forecast(), iterations_data)`
`145`	`147`	`)`