Diviser le code sur plusieurs lignes dans un script R

Je veux diviser une ligne dans un script R sur plusieurs lignes (car elle est trop longue). Comment je fais ça?

Plus précisément, j'ai une ligne telle que

setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/then/some/more')

Est-il possible de diviser le long chemin sur plusieurs lignes? j'ai essayé

setwd('~/a/very/long/path/here/that/goes/beyond/80/characters/and/
then/some/more')

avec returnclé à la fin de la première ligne; mais cela ne fonctionne pas.

Merci.

Vous ne cassez pas le code sur plusieurs lignes, mais plutôt sur un seul identifiant . Il existe une différence.

Pour votre problème, essayez

R> setwd(paste("~/a/very/long/path/here",
               "/and/then/some/more",
               "/and/then/some/more",
               "/and/then/some/more", sep=""))

ce qui illustre également qu'il est parfaitement correct de casser le code sur plusieurs lignes.

Bah, les commentaires sont trop petits. Quoi qu'il en soit, @Dirk a tout à fait raison.

R n'a pas besoin d'être informé que le code commence à la ligne suivante. Il est plus intelligent que Python ;-) et continuera simplement à lire la ligne suivante chaque fois qu'il considérera l'instruction comme "non terminée". En fait, dans votre cas, il est également passé à la ligne suivante, mais R prend le retour comme un caractère lorsqu'il est placé entre "".

Attention, vous devrez vous assurer que votre code n'est pas terminé. Comparer

a <- 1 + 2
+ 3

avec

a <- 1 + 2 +
3

Ainsi, lors de la diffusion de code sur plusieurs lignes, vous devez vous assurer que R sait que quelque chose arrive, soit en:

• en laissant un support ouvert, ou
• terminer la ligne avec un opérateur

Lorsque nous parlons de chaînes, cela fonctionne toujours, mais vous devez être un peu prudent. Vous pouvez ouvrir les guillemets et R lira jusqu'à ce que vous le fermiez. Mais chaque caractère, y compris la nouvelle ligne, sera vu comme faisant partie de la chaîne:

x <- "This is a very
long string over two lines."
x
## [1] "This is a very\nlong string over two lines."
cat(x)
## This is a very
## long string over two lines.

C'est la raison pour laquelle dans ce cas, votre code n'a pas fonctionné: un chemin ne peut pas contenir de caractère de nouvelle ligne ( \n). C'est aussi pourquoi il vaut mieux utiliser la solution avec paste()ou paste0()Dirk proposée.

La méthode de Dirk ci-dessus fonctionnera absolument, mais si vous cherchez un moyen d'apporter une longue chaîne où les espaces / la structure sont importants à préserver (exemple: une requête SQL utilisant RODBC), il existe une solution en deux étapes.

1) Amenez la chaîne de texte sur plusieurs lignes

long_string <- "this
is 
a 
long
string
with
whitespace"

2) R introduira un tas de \npersonnages. Supprimez-les avec strwrap(), ce qui détruit les espaces, conformément à la documentation :

strwrap(long_string, width=10000, simplify=TRUE)

En disant à strwrap d'encapsuler votre texte sur une très, très longue ligne, vous obtenez un vecteur de caractère unique sans espaces / caractères de nouvelle ligne.

Pour ce cas particulier, il y a file.path:

File <- file.path("~", 
  "a", 
  "very", 
  "long",
  "path",
  "here",
  "that",
  "goes",
  "beyond",
  "80",
  "characters",
  "and",
  "then",
  "some",
  "more")
setwd(File)

Je sais que cet article est ancien, mais j'ai eu une situation comme celle-ci et je veux juste partager ma solution. Toutes les réponses ci-dessus fonctionnent bien. Mais si vous avez un code comme ceux de la syntaxe de chaînage data.table, cela devient un peu difficile. par exemple, j'ai eu un problème comme celui-ci.

mass <- files[, Veg:=tstrsplit(files$file, "/")[1:4][[1]]][, Rain:=tstrsplit(files$file, "/")[1:4][[2]]][, Roughness:=tstrsplit(files$file, "/")[1:4][[3]]][, Geom:=tstrsplit(files$file, "/")[1:4][[4]]][fois]<=12000]

J'ai essayé la plupart des suggestions ci-dessus et elles n'ont pas fonctionné. mais j'ai compris qu'ils pouvaient être séparés après la virgule à l'intérieur []. Le fractionnement ][ne fonctionne pas.

mass <- files[, Veg:=tstrsplit(files$file, "/")[1:4][[1]]][, 
    Rain:=tstrsplit(files$file, "/")[1:4][[2]]][, 
    Roughness:=tstrsplit(files$file, "/")[1:4][[3]]][, 
    Geom:=tstrsplit(files$file, "/")[1:4][[4]]][`time_[s]`<=12000]