Reading CSV containing emojis from Google Sheets fails - r

Question

I've made a survey on Google Forms and send results to Google Sheets.
Then I tried to download results to R:
url = 'https://docs.google.com/spreadsheets/d/e/2PACX-1vRkkjx8AOgNdfDW9wtaHR8wtMQOrgTB1O1wwMcJLGre3E_MixhEaIGUI7gfHw5gBQX7-gcNkRUkMM3X/pub?output=csv'
google <- read.csv(url, sep = ',', header = T, fileEncoding = "UTF-8")
and faced the problem:
Warning:
In scan(file = file, what = what, sep = sep, quote = quote, dec = dec, :
incorrect input found in input connection 'https://docs.google.com/spreadsheets/d/e/2PACX-1vRkkjx8AOgNdfDW9wtaHR8wtMQOrgTB1O1wwMcJLGre3E_MixhEaIGUI7gfHw5gBQX7-gcNkRUkMM3X/pub?output=csv'
There were imported just 96 rows out of all to my R dataset.
I checked my Google Sheets and saw that 96th row contains emoji and stops downloading another rows.
What should I do there or which encoding should I choose to have an opprotuninty to read the emojis in R?
R version: 1.2.5033

Answer 1

Thanks to Allan, you helped a lot to me!
I found another decision.
url = 'https://docs.google.com/spreadsheets/d/e/2PACX-1vRkkjx8AOgNdfDW9wtaHR8wtMQOrgTB1O1wwMcJLGre3E_MixhEaIGUI7gfHw5gBQX7-gcNkRUkMM3X/pub?output=csv'
df = readLines(url, encoding = "UTF-8")
df <- read.table(text = df,
sep = ",",
fileEncoding = "UTF-8",
stringsAsFactors = FALSE)
Then I used View function to check my rows with emojis, and it shows it to me correctly.

Answer 2

You can try to load the contents of the file as a character vector then remove the emojis manually before you load the data.
Removing the very high UTF-8 values is a crude but effective way of stripping out emojis.
remove_emojis <- function(strings)
{
sapply(strings, function(x) intToUtf8(utf8ToInt(x)[-which(utf8ToInt(x) > 100000)]))
}
google <- remove_emojis(readLines(url, encoding = "UTF-8"))
df <- read.table(text = google,
sep = ",",
fileEncoding = "UTF-8",
stringsAsFactors = FALSE)