Tách mã trên nhiều dòng trong tập lệnh R

Tôi muốn tách một dòng trong tập lệnh R thành nhiều dòng (vì nó quá dài). Làm thế nào để làm điều đó?

Cụ thể, tôi có một dòng như

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

Có thể phân chia con đường dài trên nhiều dòng? Tôi đã thử

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

với returnkhóa ở cuối dòng đầu tiên; nhưng điều đó không làm việc

Cảm ơn.

Bạn không vi phạm mã trên nhiều dòng, mà là một mã định danh duy nhất . Có một sự khác biệt.

Đối với vấn đề của bạn, hãy thử

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

điều này cũng minh họa rằng việc phá mã trên nhiều dòng là hoàn toàn tốt.

Bah, ý kiến ​​quá nhỏ. Dù sao, @Dirk rất đúng.

R không cần phải nói mã bắt đầu ở dòng tiếp theo. Nó thông minh hơn Python ;-) và sẽ tiếp tục đọc dòng tiếp theo bất cứ khi nào nó coi câu lệnh là "chưa kết thúc". Trên thực tế, trong trường hợp của bạn, nó cũng đã đi đến dòng tiếp theo, nhưng R lấy sự trở lại là một ký tự khi nó được đặt giữa "".

Nhắc bạn, bạn sẽ phải đảm bảo mã của bạn chưa kết thúc. Đối chiếu

a <- 1 + 2
+ 3

với

a <- 1 + 2 +
3

Vì vậy, khi trải rộng mã trên nhiều dòng, bạn phải chắc chắn rằng R biết điều gì đó sắp xảy ra, bằng cách:

• để một khung mở, hoặc
• kết thúc dòng với một toán tử

Khi chúng ta đang nói chuyện, điều này vẫn hoạt động nhưng bạn cần cẩn thận một chút. Bạn có thể mở dấu ngoặc kép và R sẽ đọc tiếp cho đến khi bạn đóng nó. Nhưng mọi ký tự, bao gồm cả dòng mới, sẽ được xem như là một phần của chuỗi:

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.

Đó là lý do tại sao trong trường hợp này, mã của bạn không hoạt động: một đường dẫn không thể chứa ký tự dòng mới ( \n). Vì vậy, đó cũng là lý do tại sao bạn nên sử dụng giải pháp tốt hơn với paste()hoặc paste0()đề xuất Dirk.

Phương pháp của Dirk ở trên sẽ hoàn toàn hoạt động, nhưng nếu bạn đang tìm cách đưa vào một chuỗi dài trong đó khoảng trắng / cấu trúc là quan trọng để bảo tồn (ví dụ: truy vấn SQL sử dụng RODBC) có một giải pháp hai bước.

1) Đưa chuỗi văn bản qua nhiều dòng

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

2) R sẽ giới thiệu một loạt các \nnhân vật. Loại bỏ những thứ đó với strwrap(), phá hủy khoảng trắng, theo tài liệu :

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

Bằng cách yêu cầu strwrap bọc văn bản của bạn thành một hàng rất dài, bạn sẽ có được một vectơ ký tự duy nhất không có khoảng trắng / ký tự dòng mới.

Đối với trường hợp cụ thể đó là file.path:

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

Tôi biết bài đăng này đã cũ, nhưng tôi đã có một Tình huống như thế này và chỉ muốn chia sẻ giải pháp của tôi. Tất cả các câu trả lời trên hoạt động tốt. Nhưng nếu bạn có một Mã như các mã trong data.table chained Syntax thì nó trở nên khó khăn. ví dụ tôi có một vấn đề như thế này

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]]][thời gian_ [s]<=12000]

Tôi đã thử hầu hết các đề xuất ở trên và chúng không hoạt động. nhưng tôi đã tìm ra rằng chúng có thể được phân chia sau dấu phẩy bên trong []. Tách tại ][didn công việc.

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]