Fix scallop example vignette

R/utils.R

@@ -935,37 +935,37 @@ parse_data_name <- function(dat, type, project) {
 
 
   if (shiny::isRunning()) {
-    
+
     p_set <- get_proj_settings(project)
     dat <- p_set$tables[[type]]
-    
-  } else { 
-    
+
+  } else {
+
     if (!is.character(dat)) {
-      
+
       if (type == "main") {
-        
-        dat <- deparse(substitute(dat, rlang::caller_env())) 
-        
+
+        dat <- deparse(substitute(dat, rlang::caller_env()))
+
       } else if (type == "aux") {
-        
-        dat <- deparse(substitute(aux, rlang::caller_env())) 
-        
+
+        dat <- deparse(substitute(aux, rlang::caller_env()))
+
       } else if (type == "grid") {
-        
-        dat <- deparse(substitute(grid, rlang::caller_env())) 
-        
+
+        dat <- deparse(substitute(grid, rlang::caller_env()))
+
       } else if (type == "port") {
-        
-        dat <- deparse(substitute(port, rlang::caller_env())) 
-        
+
+        dat <- deparse(substitute(port, rlang::caller_env()))
+
       } else if (type == "spat") {
-        
-        dat <- deparse(substitute(spat, rlang::caller_env())) 
-        
+
+        dat <- deparse(substitute(spat, rlang::caller_env()))
+
       } else if (type == "outsample") {
-        
-        dat <- deparse(substitute(outsample, rlang::caller_env())) 
+
+        dat <- deparse(substitute(outsample, rlang::caller_env()))
       }
     }
   }