Podziel kod na wiele wierszy w skrypcie języka R.

Chcę podzielić wiersz w skrypcie R na wiele wierszy (ponieważ jest za długi). W jaki sposób mogę to zrobić?

Konkretnie mam taką linię jak

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

Czy można podzielić długą ścieżkę na wiele linii? próbowałem

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

z returnkluczem na końcu pierwszej linii; ale to nie działa.

Dzięki.

Nie łamiesz kodu w wielu wierszach, ale raczej w jednym identyfikatorze . Jest różnica.

W przypadku swojego problemu spróbuj

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

co również pokazuje, że dzielenie kodu w wielu wierszach jest całkowicie w porządku.

Tak, komentarze są za małe. W każdym razie @Dirk ma rację.

R nie trzeba mówić, że kod zaczyna się w następnej linii. Jest mądrzejszy niż Python ;-) i po prostu będzie czytać następny wiersz, gdy uzna, że ​​instrukcja jest „nie zakończona”. Właściwie w twoim przypadku przeszedł również do następnej linii, ale R przyjmuje powrót jako znak, gdy jest umieszczony między "".

Pamiętaj, że musisz się upewnić, że kod nie jest skończony. Porównać

a <- 1 + 2
+ 3

z

a <- 1 + 2 +
3

Tak więc, rozkładając kod w wielu wierszach, musisz upewnić się, że R wie, że coś nadchodzi, albo przez:

• pozostawienie otwartego nawiasu lub
• zakończenie wiersza operatorem

Kiedy mówimy o strunach, to nadal działa, ale musisz być trochę ostrożny. Możesz otworzyć cudzysłowy, a R będzie czytać dalej, dopóki go nie zamkniesz. Ale każdy znak, w tym nowa linia, będzie postrzegany jako część ciągu:

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.

To jest powód, dla którego w tym przypadku twój kod nie działał: ścieżka nie może zawierać znaku nowego wiersza ( \n). Więc to też, dlaczego lepiej używać roztworu z paste()lub paste0()Dirk proponowane.

Powyższa metoda Dirka absolutnie zadziała, ale jeśli szukasz sposobu na wprowadzenie długiego ciągu, w którym ważne jest zachowanie białych znaków / struktury (przykład: zapytanie SQL używające RODBC), istnieje dwuetapowe rozwiązanie.

1) Wprowadź ciąg tekstowy w wielu wierszach

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

2) R wprowadzi kilka \npostaci. Usuń te z strwrap(), które niszczy białe znaki, zgodnie z dokumentacją :

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

Mówiąc strwrap, aby zawijał twój tekst do bardzo, bardzo długiego wiersza, otrzymasz pojedynczy wektor znakowy bez białych znaków / znaków nowej linii.

W tym konkretnym przypadku jest file.path:

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

Wiem, że ten post jest stary, ale miałem taką sytuację i chcę tylko podzielić się moim rozwiązaniem. Wszystkie powyższe odpowiedzi działają poprawnie. Ale jeśli masz kod, taki jak ten w składni łańcuchowej data.table, staje się on trudnym wyzwaniem. np. Miałem taki problem.

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]]][czasy]<=12000]

Wypróbowałem większość powyższych sugestii i nie zadziałały. ale doszedłem do wniosku, że można je podzielić po przecinku w środku []. Dzielenie ][nie działa.

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]