Difference between revisions of "Great game of Turkey"

# This is code Op_en7421/choices on page [[Great game of Turkey]]

library(OpasnetUtils)

dat <- data.frame(
	User = wiki_username, 
	Result = option # Option
)

opbase.upload(
	dat, 
	ident = "Op_en7421", 
	name = "Great game of Turkey", 
	subset = "Choices", 
	act_type = "append", 
	language = "eng", 
	who = wiki_username
)

oprint(dat)
cat("Your choice was successfully saved.\n")

# This is code Op_en7421/happiness on page [[Great game of Turkey]]

library(OpasnetUtils)

dat <- data.frame(
	Option = option,
	Group = group,
	User = wiki_username, 
	Result = hscore # Hscore
)

if(!is.na(hscore)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Happiness", 
		act_type = "replace", 
		language = "eng", 
		who = wiki_username
	)
	oprint(dat)
	cat("Your progress score was successfully saved.\n")
} else {
	cat("Choose your score first.\n")
}

# This is code Op_en7421/progress on page [[Great game of Turkey]]

library(OpasnetUtils)

dat <- data.frame(
	Option = option,
	Progress = progress,
	User = wiki_username, 
	Result = pscore # Pscore
)

if(!is.na(pscore)) {
	opbase.upload(
		dat, 
		ident = "Op_en7421", 
		name = "Great game of Turkey", 
		subset = "Progress", 
		act_type = "replace", 
		language = "eng", 
		who = wiki_username
	)
	oprint(dat)
	cat("Your progress score was successfully saved.\n")
} else {
	cat("Choose your score first.\n")
}