run sas from r using shell function -


i using r execute sas program following dominic comtois's approach (executing sas program in r using system() command). when executed test codes, error massage showed 

error: insufficient authorization access c:\program files\sashome\x86\sasfoundation\9.3\test_yl.log.  test sas program was:     libname xx 'f:/sitetools';    data xx.test;    input species $ bec_i_c $ agetype age height;    cards;    fd  c 1 35 14.3    fd  c 0 35 14.3    fd  1 35 14.3    fd  0 35 14.3    pl  1 65 14.3    pl  1 25 14.3    pl  0 65 14.3    pl  0 25 14.3    ;    run;

how resolve issue. highly appreciated.

yong

i think problem sas tries write logfile directory have no write access. can pass alternate location log file (and .out file) sas:

  sas_log <- tempfile()   sas_out <- tempfile()    cmd <- sprintf(     'sas.exe -nosplash -icon -sysin "%s"  -log "%s" -print "%s"',     sas_script, sas_log, sas_out   )   return_code  <- system(cmd)  # runs sas , saves return code

i think should solve problem. want log file in same location whatever result sas script produces, , not in obscure temporary directory.

advanced example:

i once wrote wrapper function sas script includes logging , error handling. maybe useful you, have modify bit make run on system: 

library(futile.logger) library(purrr) library(assertthat) library(stringi) library(magrittr)  sasget <- function(   infile,   outfile = null,   sas_script,   sas_path   = "c:/program files/sas/x86/sasfoundation/9.4",   sas_config =  "c:/program files/sas/x86/sasfoundation/9.4/nls/de/sasv9.cfg" ){   # precondtions     assert_that(purrr::is_scalar_character(infile))     assert_that(is.null(outfile) || purrr::is_scalar_character(outfile))     assert_that(file.exists(sas_script))     assert_that(dir.exists(sas_path))     assert_that(file.exists(sas_config))     # process arguments     if(is.null(outfile)) outfile <- tempfile()     sas_log <- paste0(outfile, '.log')     sas_out <- paste0(outfile, '.lst')     # launch sas job     owd <- getwd()     setwd(sas_path)     on.exit(setwd(owd), add = true)       cmd <- sprintf(       'sas.exe -nosplash -icon -sysin "%s" -set filein "%s" -set fileout "%s" -log "%s" -print "%s"',       sas_script, infile, outfile, sas_log, sas_out)      flog.debug('launching sas job')     flog.trace(cmd)      return_code  <- shell(cmd)  # run sas , retain return code     # process sas log     log <- suppresswarnings(try(readlines(sas_log), silent = true))      errors <- log %>%       stringi::stri_subset_regex('^error.*:')     lapply(log, flog.trace)     # postconditions     ok <- true      if(!identical(return_code, 0l)){       flog.error('sas process returned nonzero return code: %s', return_code)       ok <- false     }      if(istrue(file.size(outfile) == 0l)){       flog.error('sas process returned empty file')       ok <- false     }      if(length(errors) > 0l){       lapply(errors, flog.error)       ok <- false     }      if(ok){       flog.debug('sas file transfer successful')     } else {       flog.fatal('there errors, please check sas log: %s', sas_log) %>%         stop()     }     # output   res <- outfile   return(res) }

notes:

  • i had remove code chunks specific project working on, hope didn't leave confusing in.
  • i left parameters infile , outfile in example of how pass macro variables sas script. can use them in sas script this: %let filein = %sysget(filein).

Comments

Post a Comment

Popular posts from this blog

python Tkinter Capturing keyboard events save as one single string -

is possible store keyboard events 1 string? code below stores 1 char , prints it. card reader or bar code reader, contains collection of character/ string not 1 character @ time. goal save char pressed text variable. from tkinter import * root = tk() def key(event): text= event.char text+= event.char print ("pressed", text) def callback(event): frame.focus_set() print ("clicked at", event.x, event.y) frame = frame(root, width=100, height=100) frame.bind("<key>", key) frame.bind("<button-1>", callback) frame.pack() root.mainloop() currently, creating text variable , everytime key() function gets called, , text stores last character typed. you can define text module level variable , , use module level text inside key function - text = '' def key(event): global text text+= event.char print("pressed", text)
Read more

android - InAppBilling registering BroadcastReceiver in AndroidManifest -

i'm implementing inapp billing in android app. works well, however, i'm trying decouple broadcast receiver activity manifest. suggestion in android's trivialdrive sample: // important: dynamically register broadcast messages updated purchases. // register receiver here instead of <receiver> in manifest // because call getpurchases() @ startup, therefore can ignore // broadcasts sent while app isn't running. // note: registering listener in activity bad idea, done here // because sample. regardless, receiver must registered after // iabhelper setup, before first call getpurchases(). currently there's class extends broadcastreceiver : public class iabbroadcastreceiver extends broadcastreceiver { /** * intent action receiver should filter for. */ public static final string action = "com.android.vending.billing.purchases_updated"; private final iabbroadcastlistener mlistener; public iabbroadcastreceiver(iabbroadcastlistener listener) { m
Read more

javascript - Z-index in d3.js -

i have map , when hover effect on region of map below yellow line , circle, last ones disappear. how can solve problem? http://jsfiddle.net/ot21n9qx/ var arc = g.append("path") .style("fill", "none") .style("stroke", "yellow") .style("stroke-width", 2) .attr("d", "m" + pathorigin[0] + "," + pathorigin[1] + " q" + svgpoint[0] + "," + pathorigin[1] + " " + svgpoint[0] + "," + svgpoint[1]); var circlesize = d3.scale.linear() .domain([0, 0.5, 1]) .range([4, 10, 4]); svg not have z order draws objects in order created. need create path , circle after create highlight regions. here forked fiddle: http://jsfiddle.net/o00fzgaf/1/
Read more