Skip to content
Snippets Groups Projects
Commit 4aca46af authored by Florian Angerer's avatar Florian Angerer
Browse files

Fix: Integer NAs are allowed for '.Random.seed'.

parent 984b8bea
No related branches found
No related tags found
No related merge requests found
...@@ -410,7 +410,7 @@ public class RRNG { ...@@ -410,7 +410,7 @@ public class RRNG {
public static void putRNGState() { public static void putRNGState() {
int[] seeds = currentGenerator().getSeeds(); int[] seeds = currentGenerator().getSeeds();
seeds[0] = currentKind().ordinal() + 100 * currentNormKind().ordinal(); seeds[0] = currentKind().ordinal() + 100 * currentNormKind().ordinal();
RIntVector vector = RDataFactory.createIntVector(seeds, RDataFactory.COMPLETE_VECTOR); RIntVector vector = RDataFactory.createIntVector(seeds, RDataFactory.INCOMPLETE_VECTOR);
REnvironment.globalEnv().safePut(RANDOM_SEED, vector.makeSharedPermanent()); REnvironment.globalEnv().safePut(RANDOM_SEED, vector.makeSharedPermanent());
} }
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment