From 35eff954d534d5cc3225dc1cf194c7fa645bfe4b Mon Sep 17 00:00:00 2001 From: Michael Nuhn Date: Mon, 23 Nov 2015 14:18:04 +0000 Subject: [PATCH] Prevent error message, if table already exists --- scripts/sequencing/load_phantom_peak_file.pl | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/scripts/sequencing/load_phantom_peak_file.pl b/scripts/sequencing/load_phantom_peak_file.pl index 40d7101f1..403e324c7 100755 --- a/scripts/sequencing/load_phantom_peak_file.pl +++ b/scripts/sequencing/load_phantom_peak_file.pl @@ -27,6 +27,12 @@ =head1 load_phantom_peak_file.pl =head1 SYNOPSIS +export R_LIBS=/software/ensembl/funcgen/R-modules + +/software/R-3.2.2/bin/Rscript /software/ensembl/funcgen/spp_package/run_spp.R \ + -c=/lustre/scratch109/ensembl/funcgen/mn1/ersa/faang/testbams/K562:hist:BR1_H3K4me3_3526_bwa_samse_1.bam \ + -savp -out=/lustre/scratch109/ensembl/funcgen/mn1/ersa/faang/testbams + ./scripts/sequencing/load_phantom_peak_file.pl \ --result_set_id 20 \ --result_file /lustre/scratch109/ensembl/funcgen/mn1/ersa/faang/testbams/test \ @@ -85,7 +91,7 @@ =head1 DESCRIPTION -dbname => $dbname, ); my $logic_name = 'phantom peak quality tools'; -my @flagstats_analysis_details = ( +my @phantom_peak_analysis_details = ( -logic_name => $logic_name, -program => 'run_spp.R', -parameters => '', @@ -105,7 +111,7 @@ =head1 DESCRIPTION if (! $analysis && ! $dry_run) { $logger->info("No analysis with logic name $logic_name found. Creating one."); - $analysis = Bio::EnsEMBL::Analysis->new(@flagstats_analysis_details); + $analysis = Bio::EnsEMBL::Analysis->new(@phantom_peak_analysis_details); $analysis_adaptor->store($analysis); } my $analysis_id = $analysis->dbID; @@ -222,7 +228,7 @@ sub create_table { my $sql_processor = $param->{sql_processor}; my $sql = <