fix script

function.R

@@ -129,20 +129,15 @@ function(req) {
     janitor::clean_names()
   harvest_setting <- data_from_user$harvest_setting %>% 
     janitor::clean_names()
-  max_doc <- data_from_user$max_doc %>% 
-    janitor::clean_names()
+  max_doc <- data_from_user$max_doc
   growth_scenario_table <- data_from_user$growth_scenario_table %>% 
     janitor::clean_names()
-  survival_setting <- data_from_user$survival_setting %>% 
-    janitor::clean_names()
-  blind_feeding_day_1_setting <- data_from_user$blind_feeding_day_1_setting %>% 
-    janitor::clean_names()
+  survival_setting <- data_from_user$survival_setting
+  blind_feeding_day_1_setting <- data_from_user$blind_feeding_day_1_setting
   blind_feeding_day_2_setting <- data_from_user$blind_feeding_day_2_setting %>% 
     janitor::clean_names()
-  date_data <- data_from_user$date_data %>% 
-    janitor::clean_names()
-  fi_multiplier <- data_from_user$fi_multiplier %>% 
-    janitor::clean_names()
+  date_data <- data_from_user$date_data
+  fi_multiplier <- data_from_user$fi_multiplier
   
   message("---- generate feeding for one cycle ----")