string <- "_(\xdcLH)"
print(string)
print(convert_umlauts_to_utf8(string))
string <- "this is _(\xdcLH) string"
df <- data.frame(v1 = c(string, "foobar"),
v2 = c("foobar", string), v3 = 3:4)
names(df)[3] <- "y_(\xdcLH)"
convert_umlauts_to_utf8(df)
convert_umlauts_to_ascii(convert_umlauts_to_utf8(df))
Run the code above in your browser using DataLab