Escrevi a seguinte função para abrir um arquivo qualquer, não necessariamente DNASeq. Na prática eu consigo abrir um arquivo com qualquer outro nome, só nomeei a variável de DNASeq para conseguir construir a função.
openfasta<-function(DNAseq){
DNASeq <- readline(prompt = "Enter the .fasta file name:")
readLines(DNASeq)
Agora preciso que, ao tentar aplicar a função, caso o arquivo não seja encontrado retorne um aviso (Este arquivo não existe, como por exemplo utilizando cat
) e que a função continue me pedindo o nome desse arquivo até que eu forneça (DNASeq <- readline(prompt = "Enter the .fasta file name:")
). Acredito que seja possível utilizando if/else e loops, tentei o seguinte código mas não funcionou.
openfasta<-function(DNAseq){
DNASeq <- readline(prompt = "Enter the .fasta file name:")
if (DNAseq = TRUE){
readLines(DNASeq)
} else {
print("No such file")
readline(prompt = "Enter the .fasta file name:")
}
}
DNAseq = TRUE
é um erro de sintaxe. O operador de igualdade é==
DNAseq
é igual aTRUE
não vale a pena testar a igualdade, a variável já é um valor lógico.