Permission

so writing test controller in existing controller didnt have 1 before. want test redirect happens when not allowed edit vs allowed edit it. the controller action being edit def edit if !@scorecard.reviewed? || admin? @company = @scorecard.company @custom_css_include = "confirmation_page" else redirect_to :back end end so if scorecard has been reviewed admin can edit score. routes controller.. # scorecards resources :scorecards member 'report' end resources :inaccuracy_reports, :only => [:new, :create] end and test require 'spec_helper' describe scorecardscontroller describe "get edit" before(:each) @agency = factory(:agency) @va = factory(:va_user, :agency => @agency) @admin = factory(:admin) @company = factory(:company) @scorecard = factory(:scorecard, :level => 1, :company => @company, :agency => @agency, :reviewed => true) ...

i'm new r , trying solve a, me, challenging problem. i have .csv file containing 22.388 rows comma separated integers. want find possible combinations of pairs of integers each row separately , list them pair pair, i'll able make visual representation of them clusters. i've tried installing combinat package r can't seem solve problem. an example file be 2 13 2 8 6 which should listed in possible combinations of pairs this. 2, 13 2, 8 2, 6 8, 6 sample input - replace textconnection(...) csv filename. csv <- textconnection("2,13 2,8,6") this reads input list of values: input.lines <- readlines(csv) input.values <- strsplit(input.lines, ',') this creates nested list of pairs: pairs <- lapply(input.values, combn, 2, simplify = false) this puts in nice matrix of integers: pairs.mat <- matrix(as.integer(unlist(pairs)), ncol = 2, byrow = true) pairs.mat # [,1] [,2] # [1,] 2 13 # [2,] ...

im trying make register_settings little bit cleaner plugin. looks way: add_action( 'admin_init', 'hpblogposts_register_settings' ); function hpblogposts_register_settings() { register_setting( 'hpblogposts_settings_options_group', 'linkid01' ); register_setting( 'hpblogposts_settings_options_group', 'linktext01' ); register_setting( 'hpblogposts_settings_options_group', 'linkalt01' ); register_setting( 'hpblogposts_settings_options_group', 'linkid02' ); register_setting( 'hpblogposts_settings_options_group', 'linktext02' ); register_setting( 'hpblogposts_settings_options_group', 'linkalt02' ); register_setting( 'hpblogposts_settings_options_group', 'linkid03' ); register_setting( 'hpblogposts_settings_options_group', 'linktext03' ); register_setting( 'hpblogposts_settings_options_group', 'li...

excuse me lame question, i`m stuck. plain , simple in routes.rb file have: resource :books resource :reviews end running rake routes | grep reviews gives me: books_reviews post /books/reviews(.:format) reviews#create new_books_reviews /books/reviews/new(.:format) reviews#new edit_books_reviews /books/reviews/edit(.:format) reviews#edit /books/reviews(.:format) reviews#show put /books/reviews(.:format) reviews#update delete /books/reviews(.:format) reviews#destroy my question is: :id param in show , edit actions? according tutorial: http://guides.rubyonrails.org/routing.html there should "id" params in routing, this: new_books_reviews /books/:id/reviews/new(.:format) reviews#new edit_books_reviews /books/:id/reviews/edit(.:format) reviews#edit /books/:id/reviews(.:format) reviews#show on top of routes show, update , destroy a...

i want sort data.frame multiple columns, ideally using base r without external packages (though if necessary, it). having read how sort dataframe column(s)? , know can accomplish order() function long either: know explicit names of each of columns. have separate object representing each individual column sort. but if have 1 vector containing multiple column names, of length that's unknown in advance? say vector called sortnames . data[order(data[, sortnames]), ] won't work, because order() treats single sorting argument. data[order(data[, sortnames[1]], data[, sortnames[2]], ...), ] work if , if specify exact correct number of sortname values, won't know in advance. things i've looked @ not been totally happy with: eval(parse(text=paste("data[with(data, order(", paste(sortnames, collapse=","), ")), ]"))) . maybe fine, i've seen plenty of hate using eval() , asking alternatives seemed worthwhile. i may able us...

how go in doing define-syntax-rule accepts list arguments , list (or quote, in case single element) body of lambda? like: >(define (lambdarize '(x y z) '(+ x y z))) #<procedure> >(a 1 2 3) 6 >(define b (lambdarize '(x) 'x)) #<procedure> >(b 1) 1 i have played around define-syntax-rule , apply , since lambda seems macro , not procedure, have been stumped @ trying find it... oh... , solution not use eval , pernicious... update thanks answer, ryan... pretty did it! =) problem eval no @ catching current scope... way can stuff (let ([a 1]) (begin (defmethod add ((x integer?) (y integer?)) (+ x y a)) (add 1 2) ) which fail miserably eval... academic example, think test correctness. it's not possible create function formal parameters , body given run-time values (s-expressions) without using eval . but based on answer greg's comment, can chang...

i need pass huge data controller. have used xmlhttprequest . have written code like: var xmlhttp; if (window.xmlhttprequest) { xmlhttp = new xmlhttprequest(); } else { xmlhttp = new activexobject("microsoft.xmlhttp"); } xmlhttp.onreadystatechange = function () { if (xmlhttp.readystate == 4 && xmlhttp.status == 200) { document.getelementbyid("mydiv").innerhtml = xmlhttp.responsetext; } } xmlhttp.open("post", "/home/content", true); xmlhttp.send("content=" + data); and actionresult like [httppost] public actionresult(string content) { return json("suc", jsonrequestbehavior.allowget); } the data like uklgripkaabxrujqvla4[...huge piece of data...]kxgtrtkkyke6xap+gyny93kj but not passing controller. showing data long. how can rid of this? send data in post body, passing argument send : xmlhttp.open("post", "/home/content", true); xmlhttp.send("c...