Ошибка с агрегацией с использованием CASE в sqldf в R

Question

Я хочу идентифицировать исходный трафик и для этого мне нужно сгруппировать разные источники трафика, используя случай, когда есть способ сделать это в R, мой код ниже выдает ошибку

grouped_sources <- sqldf("SELECT 
       CASE WHEN First_Source_ = 'undefined' THEN 'Undefined'
       WHEN First_Source_ = ' Internet ' THEN 'Interner'
       WHEN First_Source_ = 'Friend' THEN 'Friend'
       WHEN First_Source_ IN ('Google','adwords','google') THEN 'Google'
       WHEN First_Source_ = 'Former Student' THEN 'Former Student'
       WHEN First_Source_ IN('Facebook','facebook') THEN 'Facebook'
       WHEN First_Source_ IS NULL THEN 'Null'
       ELSE 'Other' END CASE AS Source, COUNT(*) AS Count 
       FROM turnover 
       GROUP BY First_Source_,CASE WHEN First_Source_ = 'undefined' THEN 'Undefined'
       WHEN First_Source_ = ' Internet ' THEN 'Interner'
       WHEN First_Source_ = 'Friend' THEN 'Friend'
       WHEN First_Source_ IN ('Google','adwords','google') THEN 'Google'
       WHEN First_Source_ = 'Former Student' THEN 'Former Student'
       WHEN First_Source_ IN('Facebook','facebook') THEN 'Facebook'
       WHEN First_Source_ IS NULL THEN 'Null'
       ELSE 'Other'")

Этопродолжает выдавать ошибку: рядом с "CASE": синтаксическая ошибка - это любой, кто сталкивается с подобной проблемой при использовании случая, когда в R ????

Answer 1

Поскольку в сообщении об ошибке указано, что оператор CASE не имеет правильного синтаксиса. Отсутствует END.