From db84682660e21d385c87319cdd9e3c211f210eef Mon Sep 17 00:00:00 2001 From: "M. Edward (Ed) Borasky" Date: Wed, 16 Aug 2023 19:02:01 -0700 Subject: [PATCH] ready for review --- R/output_functions.R | 2 +- man/chord_WAVs.Rd | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/output_functions.R b/R/output_functions.R index c726b70..0ed1ec4 100644 --- a/R/output_functions.R +++ b/R/output_functions.R @@ -366,7 +366,7 @@ scale_multisample <- function( #' eikosany_chords <- cps_chord_table(eikosany) #' eikosany_map <- keyboard_map(eikosany) #' chord_degrees <- eikosany_chords$degrees -#' for (i in length(chord_degrees)) { +#' for (i in 1:length(chord_degrees)) { #' chord <- as.numeric(unlist(strsplit(chord_degrees[i], ":"))) #' folder_name <- #' paste0("~/eikosany-chords/chord-", gsub(":", "-", chord_degrees[i])) diff --git a/man/chord_WAVs.Rd b/man/chord_WAVs.Rd index c9fb288..23991c5 100644 --- a/man/chord_WAVs.Rd +++ b/man/chord_WAVs.Rd @@ -54,7 +54,7 @@ eikosany <- cps_scale_table() eikosany_chords <- cps_chord_table(eikosany) eikosany_map <- keyboard_map(eikosany) chord_degrees <- eikosany_chords$degrees -for (i in length(chord_degrees)) { +for (i in 1:length(chord_degrees)) { chord <- as.numeric(unlist(strsplit(chord_degrees[i], ":"))) folder_name <- paste0("~/eikosany-chords/chord-", gsub(":", "-", chord_degrees[i]))