R: Bir dizgedeki son noktayı bulma

Question

R'de, bir dizede son noktanın yerini bulmaktan daha iyi/daha basit bir yol var mı?

x <- "hello.world.123.456" 
g <- gregexpr(".", x, fixed=TRUE) 
loc <- g[[1]] 
loc[length(loc)] # returns 16 

Bu, dizedeki tüm noktaları bulur ve sonuncuyu döndürür, ancak oldukça hantal görünür. Normal ifadeler kullanmayı denedim, ama çok uzağa gitmedim.

Answer 1

Bu sizin için çalışıyor mu?

x <- "hello.world.123.456" 
g <- regexpr("\\.[^\\.]*$", x) 
g 

• \.
  Önceki ifade (bir nokta ama her şey) 0 ile arasında oluşabilecek belirtir
• [^\.] nokta
• * ama her şeyi eşleşen bir nokta maçları sınırsız kere
• $ işaretler dizenin sonu.

Her şeyi bir arada ele alarak: bir noktaya kadar izleyen bir nokta bulun ve dize bitinceye kadar bir nokta bulun. R, yukarıdaki ifadede'un kaçmasını gerektirir, dolayısıyla \\ gerektirir. Regex ile deneme yapmak için regex101.com numaralı makaleye bakın.

Answer 2

Küçük bir sözdizimi geliştirmeye ne dersiniz?

Bu, giriş vektörünün uzunluğu 1 olan birebir örneğiniz için çalışacaktır. Değerli bir "." Almak için kaçışları kullanın. arama ve sonucu ters "ilk" olarak geçen endeksini hesaplamak için:

rev(gregexpr("\\.", x)[[1]])[1] 

Daha uygun vectorized sürümü (durumunda x uzun 1'den olan):

sapply(gregexpr("\\.", x), function(x) rev(x)[1]) 

ve başka Sessizleştirme seçenek bunun yerine kuyruk kullanmak için:

Answer 3

Birisi gerçekten sevdim şu cevabı yayınlanmıştır, ama onlar sildikten fark; doğrudan sonuçları üzerinden aramak zorunda kalmadan, istenilen konuma ürettiği için

regexpr("\\.[^\\.]*$", x) 

hoşuma gidiyor. Regexp da oldukça temiz, hangi regexps endişe söz konusu olan bir istisna biraz :)