ЕТ
Size: a a a
ЕТ
a
ЕТ
a
> head(readLines("2016_D1_abg__uih.TextGrid", encoding = "UTF-16"))Если сделать вид, что это таблица, то читает
[1] "\xfe\xff" "" "" "" "" ""
There were 50 or more warnings (use warnings() to see the first 50)
read.table()
(но это какое-то кривое решение):> head(read.table("2016_D1_abg__uih.TextGrid", fileEncoding = "UTF-16", sep = "*"))
V1
1 File type = ooTextFile
2 Object class = TextGrid
3 xmin = 0
4 xmax = 9.002666666666666
5 tiers? <exists>
6 size = 2
АК
> head(readLines("2016_D1_abg__uih.TextGrid", encoding = "UTF-16"))Если сделать вид, что это таблица, то читает
[1] "\xfe\xff" "" "" "" "" ""
There were 50 or more warnings (use warnings() to see the first 50)
read.table()
(но это какое-то кривое решение):> head(read.table("2016_D1_abg__uih.TextGrid", fileEncoding = "UTF-16", sep = "*"))
V1
1 File type = ooTextFile
2 Object class = TextGrid
3 xmin = 0
4 xmax = 9.002666666666666
5 tiers? <exists>
6 size = 2
a
АК
con <- file(f, encoding = "utf-16")
readLines(con)
close(con)
a
АК
uchardet::detect_file_enc(f)
Downloads/Telegram Desktop/2016_D1_abg__uih.TextGrid
"UTF-16"
a
a
АК
a
a
АК
АК
.ReadPraatFile <- function(file, encoding) {
.con <- file(file, open = "rt", encoding = encoding)
.praat_text <- readLines(.con)
close(.con)
return(.praat_text)
}
АК
readr::guess_encoding
тащит readr
и stringi
прицепом.a
uchardet
, так как там меньше зависимостей