Ничего не происходит, когда я запускаю HTMLdecode для переменной набора данных - PullRequest
Новая
       9

Ничего не происходит, когда я запускаю HTMLdecode для переменной набора данных

0 голосов
/ 26 марта 2019

Я хочу декодировать некоторые векторы с помощью HTMLdecode, но в некоторых случаях он не работает.Я читаю данные из таблицы Excel и хочу декодировать переменную, и она не работает.Если я вручную установлю эти переменные, то по какой-то причине это сработает, и я действительно не представляю, почему. 

library(magrittr)
library(openxlsx)
library(data.table)
library(textutils)

Data.Guests <- read.xlsx("Data/xxx.xlsx") %>% 
  setDT 

HTMLdecode(Data.Guests[, Name]) # does not work, nothing happens
vector <- Data.Guests[, Name]
HTMLdecode(vector) # does not work
HTMLdecode(c("Rübezahl", "Meier")) # does work. "Rübezahl" is one element of the variable

Вот как выглядит dput(Data.Guests): 

structure(list(Titel = NA_character_, Vorname = NA_character_, 
    Name = "Rübezahl", Email = NA_character_, Institution = NA_character_, 
    Position = NA_character_, Anrede = "Herr", `Priorität-einladen` = NA_character_, 
    nachrangig = NA_character_, Noch.überlegen = NA_character_, 
    Bemerkung.1 = NA_character_, Salutation = "Sehr geehrter Herr Rübezahl,\n"), row.names = c(NA, 
-1L), class = c("data.table", "data.frame"), .internal.selfref = <pointer: 0x0000000002571ef0>)

1 Ответ

1 голос
/ 26 марта 2019

Это мой хак сейчас ... Я не очень доволен этим, но это работает ... 

fil <- file("Data/tmp.r")
dput(Data.Guests, fil)
Text <- readLines(fil)
Text %<>% str_replace(", \\.internal.*", ")")
writeLines(Text, con = fil)
Data.Guests <- dget(fil)

С этим он почему-то работает ...

...