r - shiny app stops if there are >152 selectInputs when deployed over the spark server -


i have shiny app @ point creates 1 selectinput each column of table data set uploaded user. when input data set contains 152 columns, 152 selectinputs produced , further analyses done expected. however, when input file contains 153 or more columns, app starts building list of selectinputs stops (the screen turns grey). problems not occur when app run locally when hosted @ spark.rstudio.com. have not found specific errors in log file.

here how function produce multiple selectinputs described in server.r:

output$selectui<-renderui({      if (is.null(input$taxtax)) {       return(null)     }      progress <- progress$new(session, min=1, max=10)     on.exit(progress$close())      progress$set(message = 'preparing optional adjustment of feeding types',              detail = 'please wait...')      (i in 1:10) {       progress$set(value = i)       sys.sleep(0.05)     }      library(gdata)     tax<-read.xls(input$taxtax$datapath,check.names=f)     tax[,-(1:2)]<-sapply(tax[,-(1:2)],as.character)     tax[,-(1:2)]<-sapply(tax[,-(1:2)],as.numeric)     names(tax)[1]<-"a"     names(tax)[2]<-"b"      dup<-which(duplicated(names(tax))==t)      dupl<-length(dup)      namesl<-length(names(tax))      if (dupl>0) {       duplindicator<-1       megadupset<-vector()       (i in 1:dupl) {         dupset<-which(names(tax)[1:namesl]==names(tax)[dup[i]])         megadupset<-append(megadupset,dupset)         dupsum<-rowsums(tax[dupset])         dupname<-names(tax)[dupset][1]         dupsum<-cbind(dupsum)         colnames(dupsum)<-dupname         tax<-cbind(tax,dupsum)       }        tax<-tax[-megadupset]        del<-grep(".",names(tax),fixed=t)        if (length(del)>0) {         tax<-tax[-del]       }     }      tax<-tax[,-1]     dat<-read.xls("database.xls")     if (is.null(input$additem)==f){       datadditem<-data.frame(input$additem[-1,])       names(datadditem)<-names(dat)       dat<-rbind(dat,datadditem)       dat<-dat[order(as.character(dat[,1])),]       dat[,2]<-as.integer(dat[,2])       dat[,3]<-as.integer(dat[,3])       dat[,4]<-as.numeric(dat[,4])     }      taxa<-tax[,-1]      c<-ncol(taxa)     i<-1     found<-vector()     guess<-vector()      (i in 1:c)     {       taxon<-names(taxa)[i]       i<-i+1       feed<-dat[dat["taxon"]==taxon][3]       if (is.na(feed)==true) {         found.value<-taxon         found<-append(found,found.value)       }     }      if (length(found)==0) {        c<-ncol(taxa)       i<-1       feedvector<-vector()        (i in 1:c)       {         taxon<-names(taxa)[i]         if (dat[dat["taxon"]==taxon][5]=="") {           feed<-dat[dat["taxon"]==taxon][3]         } else {           feed<-paste(dat[dat["taxon"]==taxon][3],dat[dat["taxon"]==taxon][5],sep="")         }         feedvector<-append(feedvector,feed)         i<-i+1       }        # sorting       sort<-order(substr(feedvector,1,1),names(taxa))        i<-1       (i in 1:c) {         if (feedvector[i]==1) feedvector[i]<-"herbivores"         if (feedvector[i]=="1a") feedvector[i]<-"herbivores - sedentary parasites"         if (feedvector[i]=="1b") feedvector[i]<-"herbivores - migratory endoparasites"         if (feedvector[i]=="1c") feedvector[i]<-"herbivores - semi-endoparasites"         if (feedvector[i]=="1d") feedvector[i]<-"herbivores - ectoparasites"         if (feedvector[i]=="1e") feedvector[i]<-"herbivores - epidermal/root hair     feeders"         if (feedvector[i]=="1f") feedvector[i]<-"herbivores - algal/lichen/moss feeders"         if (feedvector[i]==2) feedvector[i]<-"fungivores"         if (feedvector[i]==3) feedvector[i]<-"bacterivores"         if (feedvector[i]==5) feedvector[i]<-"predators"         if (feedvector[i]==7) feedvector[i]<-"animal parasites (dispersal stages)"         if (feedvector[i]==8) feedvector[i]<-"omnivores"       }        x<-length(feedvector)       outputlist<-list()       i<-1        (i in sort) {         output<-selectinput(paste("feed",i,sep=""), colnames(taxa)[i],                              c("herbivores - sedentary parasites"="1a","herbivores - migratory endoparasites"="1b","herbivores - semi-endoparasites"="1c","herbivores - ectoparasites"="1d","herbivores - epidermal/root hair feeders"="1e","herbivores - algal/lichen/moss feeders"="1f","fungivores"=2,"bacterivores"=3,"predators"=5,"animal parasites (dispersal stages)"=7,"omnivores"=8),                             selected=feedvector[i])         outputlist<-append(outputlist,output)       }        outputlist      } else {return(null)}    })

the corresponding line in ui.r:

htmloutput(selectui)


Comments

Post a Comment

Popular posts from this blog

javascript - Jquery show_hide, what to add in order to make the page scroll to the bottom of the hidden field once button is clicked -

i have button on website when clicked, reveals map. button can seen when page first loads up, when clicked, section holding map slides open , goes out of screen since page loads @ top (normal). want page scroll down bottom of div select when button pushed, if map out of screen. if page scrolled down, , clicks show map button, don't want page jump bottom of map. i tried figure out myself, no luck. seasoned jquery coders able give me guidance? many thanks! map = mapdiv.gmap3("get"); infobox = new infobox({ pixeloffset: new google.maps.size(-220, -310), closeboxurl: '', enableeventpropagation: true }); mapdiv.delegate('.infobox .close','click',function () { infobox.close(); }); jquery(".slidingdiv").hide(); jquery(".show_hide").show(); jquery('.show_hide').click(function(){ lastcenter=map.getcenter(); jquery(".slidingdiv&quo
Read more

javascript - Highcharts multi-color line -

Image
i looking create highchart multi-colored line. if goes down under value, become red, , when comes on value, become green . here picture example: or maybe highcharts have other charts models differentiate high or low level color? you can achieve coloring using lineargradient coloring: color: { lineargradient: { x1: 0, x2: 0, y1: 0, y2: 1 }, stops: [ [0, 'red'], [0.25, 'yellow'], [0.50, 'green'], [0.75, 'yellow'], [1, 'red'] ] } here 0 in stops relates minimum value of series , 1 maximum value, , in between percentages between values. if find percentages according values prior creating chart use correct stops values make relate specific values in data (at least approximately). see this jsfiddle example .
Read more

javascript - Enter key does not work in search box -

tried search guys sorry. input in search box doesnt work (or search) when hit enter when user clicks search button. doing wrong? here code. thanks. <script type="text/javascript"> $(document).ready(function() { $("#submit").click(function() { var url = "http://asla.org/awardssearch.html"; url += "?s=" + $('#googlecse').val(); window.location = url; }); $('#googlecse').keydown(function(event) { if (event.keycode == '13') { $("#submit").click(); } else { //do nothing :) } }); }); </script> <form class="navbar-form navbar-right" role="search"> <div class="search"> <input id="googlecse" type="text" onblur="if(this.value=='')this.value=this.defaultvalue;" onfocus="if(this.value==this.defaultvalue)t
Read more