R의 파일 이름에서 "도트"를 제어하는 ​​방법은 무엇입니까?

Question

디렉토리의 특정 파일을 복사하려고하는데 스택 오버플로 덕분에이 기능을 사용하고 있습니다.

f <- list.files(path = "C:\\New folder (3)" , pattern = "*.envi" , full.names = TRUE) 
    n <- 5 
    lapply(seq_len(length(f)) , function(x) { lapply(seq_len(n) , function(x ,y){ 
    file.copy(f[x] , paste0(sub("^([^.]*).*", "\\1", f[x]) , "-" , y , ".envi")) 
    } , x = x) 
    }) 

이 작업은 정상적으로 수행되었지만 제 파일의 이름에 점들이 여러 개 있습니다.

예 내 파일 :

  sm.0001.sgridand138.envi 

코드가

   sm-1.envi 

생산을하지만 두 번째 점을 고려

  sm.0001-1.envi 

어떤 힌트

Answer 1

을 기쁘게되고 싶어요

이 답변은 뒤쪽에서부터 계산 한 두 번째 점에서 시작하는 문자열 부분을 잘라 내고 싶다고 가정합니다. 새로운 표현 수익률

> sub("^(.*)\\.[^.]*\\.[^.]*$", "\\1", "this.is.a.test") 
[1] "this.is"