Beta Code to Unicode conversion
Arguments
- beta_text
The Beta Code text to be converted to Unicode. Can be a character vector.
- strict
Whether to use strict accent and diacritics order. Default is
TRUE.
Value
A character vector of the same length as beta_text with the Unicode
representation of the Beta Code in it. Gives a warning when it encounters
malformed Beta Code.
Examples
betacode_to_unicode("*sidw\\n e)pi\\ qala/tth| po/lis *)assuri/wn")
#> [1] "Σιδὼν ἐπὶ θαλάττῃ πόλις Ἀσσυρίων"
betacode_to_unicode(plato_republic$text[1:4])
#> [1] "κατέβην χθὲς εἰς Πειραιᾶ μετὰ Γλαύκωνος τοῦ Ἀρίστωνος προσευξόμενός τε τῇ θεῷ καὶ ἅμα τὴν ἑορτὴν βουλόμενος θεάσασθαι τίνα τρόπον ποιήσουσιν ἅτε νῦν πρῶτον ἄγοντες"
#> [2] "καλὴ μὲν οὖν μοι καὶ ἡ τῶν ἐπιχωρίων πομπὴ ἔδοξεν εἶναι οὐ μέντοι ἧττον ἐφαίνετο πρέπειν ἣν οἱ Θρᾷκες ἔπεμπον"
#> [3] "προσευξάμενοι δὲ καὶ θεωρήσαντες ἀπῇμεν πρὸς τὸ ἄστυ"
#> [4] "κατιδὼν οὖν πόρρωθεν ἡμᾶς οἴκαδε ὡρμημένους Πολέμαρχος ὁ Κεφάλου ἐκέλευσε δραμόντα τὸν παῖδα περιμεῖναί ἑ κελεῦσαι"
# Gives a warning when encountering bad Beta Code:
betacode_to_unicode(paste("p*l*%a*t*o*n*", plato_republic$text[1]))
#> Warning: Word `p*l*%a*t*o*n*` contains incorrect Beta Code. Returning `πΛ[bad Beta Code: *%a*t*o*n*]`.
#> [1] "πΛ[bad Beta Code: *%a*t*o*n*] κατέβην χθὲς εἰς Πειραιᾶ μετὰ Γλαύκωνος τοῦ Ἀρίστωνος προσευξόμενός τε τῇ θεῷ καὶ ἅμα τὴν ἑορτὴν βουλόμενος θεάσασθαι τίνα τρόπον ποιήσουσιν ἅτε νῦν πρῶτον ἄγοντες"
betacode_to_unicode("fh|\\s")
#> Warning: Word `fh|\s` contains incorrect Beta Code. Returning `φῃ[bad Beta Code: \s]`.
#> [1] "φῃ[bad Beta Code: \\s]"
# But sometimes the warning can be avoided by relaxing the matching of
# diacritics
betacode_to_unicode("fh|\\s", strict = FALSE)
#> [1] "φῂς"