From 0279a99d76c9f5b010ea2781d84d37c5c892ad1f Mon Sep 17 00:00:00 2001 From: Yinghua Wu Date: Fri, 7 Aug 2015 10:01:01 -0400 Subject: [PATCH] change default group to the database on microb98 --- intSiteUploader.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/intSiteUploader.R b/intSiteUploader.R index 09a0a06..4de9ca0 100644 --- a/intSiteUploader.R +++ b/intSiteUploader.R @@ -1,10 +1,10 @@ library(RMySQL, quietly=TRUE, verbose=FALSE) library(dplyr, quietly=TRUE, verbose=FALSE) -script_dir <- dirname(sub("--file=", "", grep("--file=", commandArgs(trailingOnly=FALSE), value=T))) +codeDir <- dirname(sub("--file=", "", grep("--file=", commandArgs(trailingOnly=FALSE), value=T))) -source(file.path(script_dir, "utils.R")) -source(file.path(script_dir, "load_tables.R")) +source(file.path(codeDir, "utils.R")) +source(file.path(codeDir, "load_tables.R")) check_presence_packages() options(stringsAsFactors=F) @@ -19,7 +19,7 @@ check_presence_command_line_tools() # and group for MySQL server args <- commandArgs(trailingOnly=TRUE) workingDir <- args[1] -mysql_group <- "intSitesDev237" +mysql_group <- "intsites_miseq" if ( ! is.na(args[2])) { mysql_group <- args[2] }