ydeng/bch441-work-abc-units
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix: import all taxonomy IDs as integer

Browse Source
This commit is contained in:
hyginn 2020-10-13 20:33:04 +10:00
parent 0541612e0b
commit 804e3a73b7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
scripts/ABC-dbUtilities.R
View File

@ -31,7 +31,7 @@
#TOC> ========================================================================== #TOC> ==========================================================================
#TOC> #TOC>
#TOC> Section Title Line #TOC> Section Title Line
#TOC> ------------------------------------------------------- #TOC> -------------------------------------------------------
#TOC> 1 INITIALISATIONS AND PARAMETERS 61 #TOC> 1 INITIALISATIONS AND PARAMETERS 61
@ -54,7 +54,7 @@
#TOC> 3.15 dbSeq2JSON() 608 #TOC> 3.15 dbSeq2JSON() 608
#TOC> 3.16 dbRow2JSON() 637 #TOC> 3.16 dbRow2JSON() 637
#TOC> 4 TESTS 657 #TOC> 4 TESTS 657
#TOC> #TOC>
#TOC> ========================================================================== #TOC> ==========================================================================
@ -212,7 +212,7 @@ dbAddProtein <- function(db, jsonDF) {
name = jsonDF$name[i], name = jsonDF$name[i],
RefSeqID = jsonDF$RefSeqID[i], RefSeqID = jsonDF$RefSeqID[i],
UniProtID = jsonDF$UniProtID[i], UniProtID = jsonDF$UniProtID[i],
taxonomyID = jsonDF$taxonomyID[i], taxonomyID = as.integer(jsonDF$taxonomyID[i]),
sequence = dbSanitizeSequence(jsonDF$sequence[i])) sequence = dbSanitizeSequence(jsonDF$sequence[i]))
db$protein <- rbind(db$protein, x) db$protein <- rbind(db$protein, x)
} }