bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve Study Info formatting

Browse Source
This commit is contained in:
Bryan Roessler
2024-08-04 22:19:36 -04:00
parent 868e61d64f
commit 68dea8ecb4
1 changed files with 15 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
workflow/qhtcp-workflow
View File

@@ -1973,7 +1973,7 @@ get_studies() {
next_study_entry="$empty_study,$PROJECT_SUFFIX,NA,NA,$INITIALS" next_study_entry="$empty_study,$PROJECT_SUFFIX,NA,NA,$INITIALS"
echo "${underline}Study Info${nounderline}" echo "${underline}Study Info File${nounderline}"
if [[ ! -f $1 ]]; then if [[ ! -f $1 ]]; then
echo "Creating default $1" echo "Creating default $1"
@@ -1984,12 +1984,12 @@ get_studies() {
# Print current studies # Print current studies
cat <<-EOF cat <<-EOF
Give each experiment labels to be used for the plots and specific files. * Give each experiment labels to be used for the plots and specific files.
Enter the desired Experiment names and order them in the way you want them to appear in the REMc heatmaps * Enter the desired Experiment names and order them in the way you want them to appear in the REMc heatmaps
Current study info file: Current study info file:
${underline}$1${nounderline} ${underline}$1${nounderline}
$(cat "$1") $(cat "$1")
EOF EOF
@@ -1997,9 +1997,17 @@ get_studies() {
# Allow user to add/edit the study info file # Allow user to add/edit the study info file
if ! ((YES)); then if ! ((YES)); then
for ((i=1; i<2; i++)); do for ((i=1; i<2; i++)); do
echo "Auto-entry suggestion: $next_study_entry" cat <<-EOF
echo "Would you like to (a)dd the auto-entry, (e)dit the StudyInfo.csv file in nano, or (c)ontinue?" "Next entry suggestion: $next_study_entry"
read -r -p "Hit [Enter] or c to continue: " response
"Would you like to:
* (a)dd the suggested entry
* (e)dit the StudyInfo.csv file manually in nano
* (c)ontinue?"
EOF
read -r -p "(c): " response
echo ""
[[ -z $response ]] && break [[ -z $response ]] && break
case $response in case $response in
a) a)