Create fake company names and other company bits
Examples
ch_company()
#> [1] "Maggio PLC"
ch_company(10)
#> [1] "Batz-Batz" "Haag Ltd"
#> [3] "Feil-Wuckert" "Cassin Group"
#> [5] "Raynor, Borer and Moen" "Collier, Kuhlman and Pfannerstill"
#> [7] "Fay-O'Reilly" "Smith-Stokes"
#> [9] "Robel, Haag and Ortiz" "Sauer and Sons"
# or even ch_company(500)
ch_company(locale = "fr_FR", n = 10)
#> [1] "Chauveau Chauveau S.A." "Boulay S.A.R.L."
#> [3] "Guibert" "Duhamel"
#> [5] "Tessier et Fils" "Gaillard Gaillard et Fils"
#> [7] "Ménard SA" "Boulanger Boulanger S.A.R.L."
#> [9] "Collét" "Clerc Clerc SA"
ch_company(locale = "cs_CZ", n = 10)
#> [1] "Krejčí a.s." "Štěpánek s.r.o." "Kolář Bartošová o.s."
#> [4] "Poláková" "Kučerová Pokorný o.s." "Němec"
#> [7] "Zemanová Malá o.s." "Vlček Procházková a.s." "Vávrová"
#> [10] "Kopecký"
ch_company(locale = "es_MX", n = 10)
#> [1] "Fierro-Miranda S.A." "Gómez, Ceballos y Mercado"
#> [3] "Peralta y Lozada S.C." "Proyectos Girón, Colón y Aponte"
#> [5] "Grupo Bañuelos, Rodrígez y González" "Mercado y Laureano S.A. de C.V."
#> [7] "Hurtado S.A. de C.V." "Laboratorios Olivares-Loya"
#> [9] "Corporativo Luevano y Palomo" "Ojeda S.A."
ch_company(locale = "hr_HR", n = 10)
#> [1] "Kolić d.o.o." "Lešković Valjetić j.d.o.o."
#> [3] "Kresonja Horak j.d.o.o." "Terzić Ilić d.d."
#> [5] "Barešić" "Cvenić"
#> [7] "Preočanin" "Ivanović j.d.o.o."
#> [9] "Papak d.d." "Pešić"