В настоящее время я пытаюсь запустить скрипт в RStudio, часть которого включает в себя удаление пунктуации из строки во фрейме данных.До сих пор это был особенно трудоемкий шаг, поэтому я хочу попробовать вставить несколько выходных сообщений, чтобы убедиться, что он не вышел из строя и все еще работает.
Моя идея состояла в том, чтобы попытаться поставить другойцикл внутри цикла, удаляющий пунктуацию, который выводил бы напечатанное сообщение с указанием процента завершения шага, но только когда процентное значение было целым числом, чтобы не печатать миллион сообщений.
Я пытался это сделатьс чем-то вроде ниже, но большая проблема здесь в том, что я вполне уверен, что я неправильно использую переменную «i», так что это никогда не сработает так, как я написал.Поэтому я надеюсь на исправления или альтернативы тому, что у меня есть в цикле if.
for(i in 1:nrow(eqtls)){
eqtls$gene_id_new[i]=rem_punct(eqtls$gene_id[i])
if((i/nrow(eqtls)*(100))%%1=0){
completion = (i/nrow(eqtls))*100
message(sprintf("Percent complete: %s\n", completion))
}
}
Чтобы уточнить: сейчас это чисто академический подход, поскольку я переключаюсь на другой метод удаления знаков препинания.