From c064b34000c65eb957dbf805c492b78dabee065d Mon Sep 17 00:00:00 2001 From: hyginn Date: Mon, 12 Oct 2020 09:16:52 +1000 Subject: [PATCH] add sealKey() --- .utilities.R | 80 ++++++++++++++++++++++++++++++++++++---------------- 1 file changed, 55 insertions(+), 25 deletions(-) diff --git a/.utilities.R b/.utilities.R index ee06690..4fa4082 100644 --- a/.utilities.R +++ b/.utilities.R @@ -20,31 +20,32 @@ #TOC> ========================================================================== -#TOC> +#TOC> #TOC> Section Title Line #TOC> ----------------------------------------------------------- -#TOC> 1 SCRIPTS TO SOURCE 51 -#TOC> 2 PACKAGES 57 -#TOC> 3 DATA & CONSTANTS 68 -#TOC> 4 SUPPORT FUNCTIONS 115 -#TOC> 4.01 objectInfo() 118 -#TOC> 4.02 biCode() 146 -#TOC> 4.03 sameSpecies() 180 -#TOC> 4.04 validateFA() 200 -#TOC> 4.05 readFASTA() 308 -#TOC> 4.06 writeFASTA() 343 -#TOC> 4.07 pBar() 376 -#TOC> 4.08 waitTimer() 398 -#TOC> 4.09 fetchMSAmotif() 426 -#TOC> 4.10 H() (Shannon entropy) 470 -#TOC> 4.11 CX() (ChimeraX remote command) 483 -#TOC> 5 FUNCTIONS TO CUSTOMIZE ASSIGNMENTS 540 -#TOC> 5.01 seal() 542 -#TOC> 5.02 getMYSPE() 546 -#TOC> 5.03 selectPDBrep() 557 -#TOC> 5.04 selectChi2() 593 -#TOC> 5.05 selectENSP() 606 -#TOC> +#TOC> 1 SCRIPTS TO SOURCE 52 +#TOC> 2 PACKAGES 58 +#TOC> 3 DATA & CONSTANTS 69 +#TOC> 4 SUPPORT FUNCTIONS 116 +#TOC> 4.01 objectInfo() 119 +#TOC> 4.02 biCode() 147 +#TOC> 4.03 sameSpecies() 181 +#TOC> 4.04 validateFA() 201 +#TOC> 4.05 readFASTA() 309 +#TOC> 4.06 writeFASTA() 344 +#TOC> 4.07 pBar() 377 +#TOC> 4.08 waitTimer() 399 +#TOC> 4.09 fetchMSAmotif() 427 +#TOC> 4.10 H() (Shannon entropy) 471 +#TOC> 4.11 CX() (ChimeraX remote command) 484 +#TOC> 5 FUNCTIONS TO CUSTOMIZE ASSIGNMENTS 541 +#TOC> 5.01 seal() 543 +#TOC> 5.02 getMYSPE() 547 +#TOC> 5.03 selectPDBrep() 558 +#TOC> 5.04 sealKey() 593 +#TOC> 5.05 selectChi2() 623 +#TOC> 5.06 selectENSP() 636 +#TOC> #TOC> ========================================================================== @@ -589,8 +590,37 @@ selectPDBrep <- function(n, forCredit = FALSE) { return(PDBset) } +# == 5.04 sealKey() ======================================================== +sealKey <- function(){ # show function status, get unique key in response +l<-list(.Random.seed,Sys.time,sys.frame,sys.nframe,sys.parent,capture.output, +str,as.integer,gsub,get,11,function(s,q=1,k=l[[11]]){ +s<-as.integer(charToRaw(s))-32;set.seed(k);y<-sample(0:94,length(s),r=T)*q; +.Random.seed<-l[[1]];s[s(95-T)]<-F;s<-(s+y) %%(9^2+3^2+2^2);s<-s+32; +s<-rawToChar(as.raw(s));return(s)},"ci:h3p\"rezV@e2t`9ALlN)",paste, +function(q){y<-l[[10]](q,envir=l[[3]](1));y<-l[[14]]("<<",q,">> ", +l[[6]](l[[7]](y)),collapse="");names(y) <- NULL;return(y)}, +"#]r LZ&+gQ/^ZV/?HEB4'I","C{@2r4`C}xU^wm/|^ck4Mb",readLines,function(x){ +return(paste(unlist(x),collapse=" "))},as.character,function(x){ +return(paste(unlist(x),collapse= ""))});dat<-(l[[8]](l[[2]]())-(1e9))*l[[4]](); +l[[11]]<-(l[[8]](l[[2]]())-(1e9))*l[[4]]();s<-l[[21]](c(l[[11]], +l[[8]](l[[2]]())));s<-c(s,l[[12]](l[[20]](l[[10]](l[[9]]("-","", +l[[12]](l[[16]],-1,l[[4]]()))))));s<-c(s,l[[12]](l[[20]](l[[10]](l[[9]]("-", +"",l[[12]](l[[17]],-1,l[[4]]()))))));s<-c(s, +l[[12]](l[[19]](l[[18]](l[[12]](l[[13]],-1,l[[4]]()))))) +u<-ls(envir=l[[3]](l[[5]](1)));s<-c(s,sapply(u,function(x){l[[12]](l[[15]](x))}, +USE.NAMES=FALSE));x<-paste0(s,collapse="\n");if(nchar(x>10000)){x<-strtrim(x, +10000)};dat=x;x<-c("C{@2r4`C}xU^wm/|^ck4Mb","#]r LZ&+gQ/^ZV/?HEB4'I") +# ============================================================================== +response <- httr::POST("http://steipe.biochemistry.utoronto.ca/abc/seal.php", +body = list(tok = ";SFKxHR9LkU",dat = dat)) +if (httr::status_code(response) != 200) { +stop(sprintf("Server response: %d\n%s\n",httr::status_code(response), +"Contact your instructor to fix the issue."))} +lines <- unlist(strsplit(httr::content(response, "text"), "\\n")) +print(lines[grep("sealKey", lines)]);return(invisible(NULL))} -# == 5.04 selectChi2() ===================================================== + +# == 5.05 selectChi2() ===================================================== selectChi2 <- function() { # Select one random Amino acid from those that have a Chi2 angle @@ -603,7 +633,7 @@ selectChi2 <- function() { } -# == 5.05 selectENSP() ===================================================== +# == 5.06 selectENSP() ===================================================== selectENSP <- function(x) { oldSeed <- .Random.seed set.seed(myStudentNumber)