Crédits photo

Bonjour à tous, J'espère que vous allez tous bien. J'ai un petit problème avec la fonction `open` en R. J'ai lu la documentation et recherché en ligne, mais je ne trouve pas de solution. Voici le code qui pose problème : ```r my_file <- "data.csv" my_data <- read.csv(my_file) file_conn <- file(my_file, "r") lines <- readLines(file_conn) close(file_conn) print(lines) for(i in 1:length(lines)) { if (grepl("Date", lines[i])) { print(paste("Ligne trouvée à l'index", i)) break } } # C'est ici que ça se complique... file_conn <- file(my_file, "r") line_num <- 0 repeat { line <- readLines(file_conn, n = 1) line_num <- line_num + 1 if (identical(line, character(0))) { break } if (line_num == 5) { print(paste("La cinquième ligne est :", line)) break } } close(file_conn) ``` Le problème est que lorsque je réécris le code pour rouvrir le fichier et lire la cinquième ligne, cela semble fonctionner correctement, mais je suis sûr que j'ai un problème sous-jacent. J'ai un problème avec la façon dont le fichier est fermé et rouvert, ou peut-être la façon dont je lis les lignes. Quelqu'un pourrait-il m'expliquer ce qui se passe ici et comment je peux régler ce problème ? Merci d'avance pour votre aide !

Updated 15 Jul 2026