Есть ли лучший способ кодировать этот sqlQuery в R? - PullRequest
Новая
       13

Есть ли лучший способ кодировать этот sqlQuery в R?

4 голосов
/ 25 февраля 2010

Я пишу сценарий R, чтобы получить некоторые данные из базы данных, а затем поработать с ними, используя пакет RODBC. В настоящее время все мои команды sqlQuery представляют собой одну длинную строку; 

stsample<-sqlQuery(odcon, paste"select * from bob.DESIGNSAMPLE T1, bob.DESIGNSUBJECTGROUP T2, bob.DESIGNEVENT T3, bob.CONFIGSAMPLETYPES T4 WHERE T1.SUBJECTGROUPID = T2.SUBJECTGROUPID AND T1.TREATMENTEVENTID = T3.TREATMENTEVENTID AND T1.SAMPLETYPEKEY = T4.SAMPLETYPEKEY AND T1.STUDYID = T2.STUDYID AND T1.STUDYID = T3.STUDYID AND T1.STUDYID = ", chstudid, sep=""))
head(stsample)

, который выглядит некрасиво и трудно читать / обновлять. Я пытался поставить их многострочно, но потом мешают новые символы строки, в настоящее время лучше всего использовать много паст; 

stsample<-sqlQuery(odcon,
    paste(
        "select ",
            "* ", 
        "from ", 
            "BOB.DESIGNSAMPLE T1, ",
            "BOB.DESIGNSUBJECTGROUP T2, ",
            "BOB.DESIGNEVENT T3, ",
            "BOB.CONFIGSAMPLETYPES T4 ",
        "WHERE ",
            "T1.SUBJECTGROUPID = T2.SUBJECTGROUPID ",
            "AND T1.TREATMENTEVENTID = T3.TREATMENTEVENTID ",
            "AND T1.SAMPLETYPEKEY = T4.SAMPLETYPEKEY ",
            "AND T1.STUDYID = T2.STUDYID ",
            "AND T1.STUDYID = T3.STUDYID ",
            "AND T1.STUDYID = ",chstudid,
        sep="")
    )
head(stsample)

Но мне не нравится расставлять кавычки вокруг каждой строки и корректировать пробелы. Есть ли лучший способ?

Ответы [ 3 ]

6 голосов
/ 25 февраля 2010

Я бы использовал что-то вроде этого: 

stsample<-sqlQuery(odcon,
    paste("
####DATASET CONSTRUCTION QUERY #########
    select 
    *  
    from 
    BOB.DESIGNSAMPLE T1, 
    BOB.DESIGNSUBJECTGROUP T2, 
    BOB.DESIGNEVENT T3, 
    BOB.CONFIGSAMPLETYPES T4 
    WHERE 
    T1.SUBJECTGROUPID = T2.SUBJECTGROUPID 
    AND T1.TREATMENTEVENTID = T3.TREATMENTEVENTID 
    AND T1.SAMPLETYPEKEY = T4.SAMPLETYPEKEY 
    AND T1.STUDYID = T2.STUDYID 
    AND T1.STUDYID = T3.STUDYID 
    AND T1.STUDYID = 
###################################   
    ", as.character(chstudid), sep="")
    )
2 голосов
/ 25 февраля 2010

А как насчет использования gsub ("\ n", "", "длинная многострочная строка выбора") вместо вставки?

0 голосов
/ 02 июля 2019

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

Одна вещь, которую я нашел полезной, это пакет GetoptLong , который предоставляет функцию qq (). Я думаю, что он вдохновлен Perl, но, по сути, он предоставляет способ создания многострочной строки с простой интерполяцией переменных. Например: 

library(GetoptLong)

tableName <- "myTable"
id <- 42

sqlQuery(odcon, qq("
    SELECT * FROM @{tableName}
    WHERE id = @{id}
    LIMIT 1
")

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

...