diff --git a/tools/camera/CAMERA_findAdducts.R b/tools/camera/CAMERA_findAdducts.R index ee6675150..f75419d3f 100755 --- a/tools/camera/CAMERA_findAdducts.R +++ b/tools/camera/CAMERA_findAdducts.R @@ -129,7 +129,7 @@ main_cols <- 1:(ncols - sample_cols - 3) # Main columns before sample columns tail_cols <- (ncols - 2):ncols # The last 3 columns (adduct, isotope, pcgroup) # Combine the selected columns from matgrp with the group names -variableMetadata <- cbind( +variableMetadata <- data.frame( name = names_default, name_custom = names_custom, stringsAsFactors = FALSE diff --git a/tools/camera/CAMERA_findIsotopes.R b/tools/camera/CAMERA_findIsotopes.R index 44d4f2c2a..2ac593c6f 100755 --- a/tools/camera/CAMERA_findIsotopes.R +++ b/tools/camera/CAMERA_findIsotopes.R @@ -116,7 +116,7 @@ main_cols <- 1:(ncols - sample_cols - 3) # Main columns before sample columns tail_cols <- (ncols - 2):ncols # The last 3 columns (adduct, isotope, pcgroup) # Combine the selected columns from matgrp with the group names -variableMetadata <- cbind( +variableMetadata <- data.frame( name = names_default, name_custom = names_custom, stringsAsFactors = FALSE diff --git a/tools/camera/CAMERA_groupCorr.R b/tools/camera/CAMERA_groupCorr.R index a5ab01ec7..c4be568be 100755 --- a/tools/camera/CAMERA_groupCorr.R +++ b/tools/camera/CAMERA_groupCorr.R @@ -88,7 +88,7 @@ main_cols <- 1:(ncols - sample_cols - 3) # Main columns before sample columns tail_cols <- (ncols - 2):ncols # The last 3 columns (adduct, isotope, pcgroup) # Combine the selected columns from matgrp with the group names -variableMetadata <- cbind( +variableMetadata <- data.frame( name = names_default, name_custom = names_custom, stringsAsFactors = FALSE diff --git a/tools/camera/CAMERA_groupFWHM.R b/tools/camera/CAMERA_groupFWHM.R index 3957c12a2..1832e8d41 100755 --- a/tools/camera/CAMERA_groupFWHM.R +++ b/tools/camera/CAMERA_groupFWHM.R @@ -91,7 +91,7 @@ main_cols <- 1:(ncols - sample_cols - 3) # Main columns before sample columns tail_cols <- (ncols - 2):ncols # The last 3 columns (adduct, isotope, pcgroup) # Combine the selected columns from matgrp with the group names -variableMetadata <- cbind( +variableMetadata <- data.frame( name = names_default, name_custom = names_custom, stringsAsFactors = FALSE