R-SQLDF - SELECT ... CASE ... END

Question

Здравствуйте, Я пытаюсь запустить запрос, который использует оператор CASE из R. Я использую пакет SQLDF. Тот же запрос отлично работает в Mysql. Запроса приведены значения 0 или 1, «Экспресс» в соответствии со следующими ситуациями:

Выберите «Экспресс» =
ПРИМЕР
, когда E_MAIL как «% GMail%», то 1
, когда E_MAIL как " % Yahoo%», а затем 1
, когда E_MAIL как "%" % HOTMAIL затем 1
еще 0
END из данных
;

Это то, что я пытался в R:
альфа < -sqldf ("Выбрать "Экспресс"=
СЛУЧАЙ
когда E_MAIL как "% GMAIL%", то 1
когда E_MAIL как" % Yahoo% "а затем 1
, когда E_MAIL как "%" % HOTMAIL затем 1
остальное 0
END из данных");

Любая помощь будет оценена!

Answer 1

Проблемы в том, что строка запроса в вопросе имеет кавычки в кавычках, а синтаксис неверен. Используя базу данных по умолчанию SQLite (sqldf также поддерживает MySQL) мы имеем:

library(sqldf) 
data <- data.frame(E_MAIL = c("x@x.com", "x@yahoo.com")) 

sqldf("select E_MAIL, 
    case 
    when E_MAIL like '%gmail%' then 1 
    when E_MAIL like '%yahoo%' then 1 
    when E_MAIL like '%hotmail%' then 1 
    else 0 
    end express 
    from data") 

дает:

 E_MAIL express 
1  x@x.com  0 
2 x@yahoo.com  1 

Или, возможно, вы имели в виду, чтобы выполнить udpate. Это дает тот же результат с тестовыми данными, показанными:

data <- data.frame(E_MAIL = c("x@x.com", "x@yahoo.com"), express = 0) 

sqldf(c("update data set express = 
    case 
    when E_MAIL like '%gmail%' then 1 
    when E_MAIL like '%yahoo%' then 1 
    when E_MAIL like '%hotmail%' then 1 
    else 0 
    end", "select * from main.data")) 

Примечание: следующий раз просьба представить полный воспроизводимый пример, включая ввод.