GenerateHITsFromTemplate: Generate HITs from a Template

Description

Generate individual HIT .html files from a local .html HIT template file, in the same fashion as the MTurk Requester User Interface (RUI). This function facilitates the use of ExternalQuestion data structures.

Usage

GenerateHITsFromTemplate(template, input, filenames = NULL, write.files = FALSE)

Arguments

template

A character string or filename for an .html HIT template

input

A dataframe containing one row for each HIT to be created and columns named identically to the placeholders in the HIT template file. Operation will fail if variable names do not correspond.

filenames

An optional list of filenames for the HITs to be created. Must be equal to the number of rows in input.

write.files

A logical specifying whether HIT .html files should be created and stored in the working directory. Or, alternatively, whether HITs should be returned as character vectors in a list.

Value

A list containing a character string for each HIT generated from the template.

Details

Generate HITs from a HIT template (containing placeholders for input data of the form \${variablename}). The tool provides functionality analogous to the MTurk RUI HIT template and can be performed on .html files generated therein. The HITs are returned as a list of character strings. If write.files = TRUE, a side effect occurs in the form of one or more .html files being written to the working directory, with filenames specified by the filenames option or, if filenames=NULL of the form “NewHIT1.html”, “NewHIT2.html”, etc.

hitsfromtemplate() is an alias.

References

API Reference: Operation

API Reference: ExternalQuestion Data Strucure

Examples

Run this code

# NOT RUN {
a <- data.frame(hitvariable = c("HIT text 1","HIT text 2","HIT text 3"), stringsAsFactors=FALSE)
temp <- '<html><head></head><body>
<div>${hitvariable}<br/>
Question 1: <input type="text" name="var1"><br/>
Question 2: <input type="text" name="var2">
</div></body></html>'

# create templates
temps <- GenerateHITsFromTemplate(temp, input = a)

# create HITs from template
hittype1 <- 
RegisterHITType(title="2 Question Survey",
                description=
                "Complete a 2-question survey",
                reward=".20", 
                duration=seconds(hours=1), 
                keywords="survey, questionnaire, politics")
hits <- lapply(temps, function(x) {
    CreateHIT(hit.type = hittype1$HITTypeId, 
              expiration = seconds(days = 1),
              assignments = 2,
              question = GenerateHTMLQuestion(x)$string)
})

# cleanup
ExpireHIT(hit.type = hittype1$HITTypeId)
DisposeHIT(hit.type = hittype1$HITTypeId)
# }

Run the code above in your browser using DataLab