con <- file("Test.txt","r", blocking = FALSE)
t <- data.frame(readLines(con))

Output:
2017~24~0000049~079~0100~0644~0081~32~0030~0910~                PTTA~A~ .8000~    10.1900~           ~    111.80~      1,420 ~        497 ~            ~      3,281 ~     48.0~1.000~   2029~05302017~PL~01~120~L001~061~N~023~W~0034
2017~24~0000049~079~0100~0644~0081~32~0030~0910~                PTTA~A~ .8000~    10.1900~           ~    111.80~      1,420 ~        497 ~            ~      3,281 ~     48.0~1.000~   2029~05302017~PL~01~120~L002~061~N~023~W~0035
2017~24~0000049~079~0100~0960~0041~02~0030~0160~              PTTAYE~A~ .8000~     3.9600~           ~      2.70~        199 ~         64 ~            ~      1,420 ~    166.0~1.000~   2029~04262017~PL~01~130~L001~060~N~023~W~0011



2017~24~0000049~079~0100~0644~0081~32~0030~0910~                PTTA~A~ .8000~    10.1900~           ~    111.80~      1,420 ~        497 ~            ~      3,281 ~     48.0~1.000~   2029~05302017~PL~01~120~L001~061~N~023~W~0034~L002~061~N~023~W~0035
2017~24~0000049~079~0100~0960~0041~02~0030~0160~              PTTAYE~A~ .8000~     3.9600~           ~      2.70~        199 ~         64 ~            ~      1,420 ~    166.0~1.000~   2029~04262017~PL~01~130~L001~060~N~023~W~0011