adicionando frutas sugeridas pelo @scopinho

data-raw/frutas.R

@@ -1,5 +1,5 @@
-# Vetor de 80 frutas
-frutas <- c(
+# Vetor de frutas
+frutas_chatgpt <- c(
   "Abacate",
   "Abacaxi",
   "A\u00E7a\u00ED",
@@ -82,4 +82,90 @@ frutas <- c(
   "Zabel\u00EA"
 )
 
+# https://github.com/cienciadedatos/pt-r4ds/issues/21#issuecomment-1839200177
+frutas_sugestao <- c(
+  "ma\u00E7\u00E3",
+  "damasco",
+  "abacate",
+  "banana",
+  "piment\u00E3o",
+  "mirtilo",
+  "amora",
+  "groselha",
+  "laranja sangu\u00EDnea",
+  "blueberry",
+  "amoras silvestres",
+  "fruto-p\u00E3o",
+  "mel\u00E3o can\u00E1rio",
+  "mel\u00E3o cantalupo",
+  "cherimoya",
+  "cereja",
+  "pimenta chili",
+  "clementina",
+  "amora branca",
+  "coco",
+  "arando",
+  "pepino",
+  "groselha preta",
+  "ameixa damasco",
+  "t\u00E2mara",
+  "fruta do drag\u00E3o",
+  "durian",
+  "berinjela",
+  "sabugueiro",
+  "feijoa",
+  "figo",
+  "goji berry",
+  "groselha",
+  "uva",
+  "grapefruit",
+  "goiaba",
+  "mel\u00E3o verde",
+  "mirt\u00EDlo",
+  "jaca",
+  "jamel\u00E3o",
+  "jujuba",
+  "kiwi",
+  "kumquat",
+  "lim\u00E3o",
+  "lima",
+  "n\u00EAspera",
+  "lichia",
+  "mandarina",
+  "manga",
+  "amora",
+  "nectarina",
+  "noz",
+  "azeitona",
+  "laranja",
+  "pomelo",
+  "mam\u00E3o",
+  "maracuj\u00E1",
+  "p\u00EAssego",
+  "pera",
+  "caqui",
+  "fis\u00E1lis",
+  "abacaxi",
+  "ameixa",
+  "rom\u00E3",
+  "pomelo",
+  "mangostin roxo",
+  "marmelo",
+  "uva passa",
+  "rambutan",
+  "framboesa",
+  "groselha vermelha",
+  "mel\u00E3o",
+  "baga de salal",
+  "tangerina",
+  "carambola",
+  "morango",
+  "tomate de \u00E1rvore",
+  "tangerina",
+  "melancia"
+)
+
+frutas <- unique(stringr::str_to_lower(c(frutas_chatgpt, frutas_sugestao)))
+
+
 usethis::use_data(frutas, overwrite = TRUE)