updates

gemmagerber · Jun 16, 2023 · 4ae8d25 · 4ae8d25
1 parent 5b77dcb
commit 4ae8d25
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/R/demo_net_input.R b/R/demo_net_input.R
@@ -21,9 +21,11 @@ demo_net_input <- function() {
     Unused_energy_lower = c(NA, NA, NA, NA),
     Unused_energy_upper = c(NA, NA, NA, "0.05 * Vert_Q"),
     Imports_lower = c(NA, NA, NA, NA),
-    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert'),
+    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert'),
     Exports_lower = c(NA, NA, NA, NA),
-    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert')
+    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert'),
     AE_lower = c(NA, NA, "0.5 * Invert_Q", "0.2 * Vert_Q"),
     AE_upper = c(NA, NA, NA, NA)
   )
@@ -40,9 +42,11 @@ demo_net_input <- function() {
     Unused_energy_lower = c(NA, NA, NA, NA),
     Unused_energy_upper = c(NA, NA, NA, NA),
     Imports_lower = c(NA, NA, NA, NA),
-    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert'),
+    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert'),
     Exports_lower = c(NA, NA, NA, NA),
-    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert')
+    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert')
   )
 
   net_winter <- data.frame(
@@ -57,9 +61,11 @@ demo_net_input <- function() {
     Unused_energy_lower = c(NA, NA, NA, NA),
     Unused_energy_upper = c(NA, NA, NA, NA),
     Imports_lower = c(NA, NA, NA, NA),
-    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert'),
+    Imports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert'),
     Exports_lower = c(NA, NA, NA, NA),
-    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant', '0.1 * Invert', '0.1 * Vert')
+    Exports_upper = c('0.1 * DetNLNode', '0.1 * Plant',
+                      '0.1 * Invert', '0.1 * Vert')
   )
 
   net_spring <- data.frame(