wrong options usage

floswald · floswald · commit 602fcd85cc05 · 2024-10-09T14:33:06.000+02:00
diff --git a/R/build.panel.r b/R/build.panel.r
@@ -141,7 +141,7 @@ build.panel <- function(datadir=NULL,fam.vars,ind.vars=NULL,heads.only=FALSE,cur
 	if ( .Platform$OS.type != 'windows' ) {
 		# warning("I'm setting your encoding to windows now")
 	    oldopts <- options() # code line i
-	    on.exit(oldopts) # code line i + 1
+	    on.exit(options(oldopts)) # code line i + 1
 		options( encoding = "windows-1252" )		# # only macintosh and *nix users need this line
 	}
 	

Original file line number	Diff line number	Diff line change
`@@ -141,7 +141,7 @@ build.panel <- function(datadir=NULL,fam.vars,ind.vars=NULL,heads.only=FALSE,cur`
`141`	`141`	`if ( .Platform$OS.type != 'windows' ) {`
`142`	`142`	`# warning("I'm setting your encoding to windows now")`
`143`	`143`	`oldopts <- options() # code line i`
`144`		`- on.exit(oldopts) # code line i + 1`
	`144`	`+ on.exit(options(oldopts)) # code line i + 1`
`145`	`145`	`options( encoding = "windows-1252" ) # # only macintosh and *nix users need this line`
`146`	`146`	`}`
`147`	`147`