Update dev.mdJSONdictio.R

hdvincelette · Feb 23, 2024 · 74881aa · 74881aa
1 parent 3b14db9
commit 74881aa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/man/dev.mdJSONdictio.R b/man/dev.mdJSONdictio.R
@@ -164,7 +164,7 @@ path<-system.file("extdata", "e.g.dictionary2.json", package = "mdJSONdictio")
 input.json <- rjson::fromJSON(file = path)
 
 # Translate list to data frame
-new.table<- mdJSONdictio::build.table(x = input.json, dictionary_num = 1, entity_num = 2)
+new.table<- mdJSONdictio::build.table(x = input.json, dictionary_num = 1, entity_num = 1)
 
 # Export table to disk
 write.csv(x = new.table, file = "e.g.dictionary2.csv", na="", row.names = FALSE)