Following blurring, if a velocity cube was supplied, it returns the b…

…lurred cube named "spectral_cube". This is now fixed in line with the naming convention. (i.e. returns an array names velocity cube if this was input). Solution to issue #16.

R/blur_datacube.R

@@ -78,7 +78,7 @@ blur_datacube = function(datacube_output){
     }
 
     # Returning output in same format as input
-    blur_output = list("spectral_cube"    = blur_cube,
+    blur_output = list("velocity_cube"    = blur_cube,
                        "observation"      = observation,
                        "raw_images"       = datacube_output$raw_images,
                        "observed_images"  = vector(mode = "list", length=3))

R/make_simspin_file.R

@@ -169,6 +169,7 @@ make_simspin_file = function(filename, cores=1, disk_age=5, bulge_age=10,
     galaxy_data$star_part$Initial_Mass = galaxy_data$ssp$Initial_Mass
 
     sed  = .spectra(Metallicity = AZ_bins$metallicities, Age = AZ_bins$ages, Template = temp, cores = cores) # returns a list
+
   } else {sed = NULL}
 
   if (length(galaxy_data$gas_part$SmoothingLength)>0 & sph_spawn_n>1){ # if we need to spawn gas particles beacuse we are working with SPH models