df <- data.frame(
url = LETTERS,
headline = LETTERS,
text = letters
)
df$headline[3] <- NA
library(annotinder)
units <- create_units(
df,
id = "url",
text = set_text(name = "Petition", value = text, label = headline),
url = set_markdown(name = "URL", value = url, label = "Original URL")
)
codebook <- question(
name = "relevant",
question = "Is this text relevant?",
codes = c("Yes", "No"),
type = "annotinder"
) |>
create_codebook()
job <- create_job("relevant_petition", units, codebook)
job_db_file <- create_job_db(job, overwrite = TRUE)
start_annotator(job_db_file,
background = TRUE, browse = TRUE)
First two units work normally, the third stops the annotation process and leaves me with a blank white browser window.
Reprex:
First two units work normally, the third stops the annotation process and leaves me with a blank white browser window.