Update itemresponsetheorycommon.R

koenderks · koenderks · commit c88c7b41f7c3 · 2024-11-12T15:44:17.000+01:00
diff --git a/R/itemresponsetheorycommon.R b/R/itemresponsetheorycommon.R
@@ -467,7 +467,7 @@
 }
 
 .irtIRTItemCharCurve <- function(dataset, options, jaspResults, ready, position) {
-  if (options[["explanatoryText"]] && options[["plotItemCharacteristic"]]) {
+  if (options[["explanatoryText"]] && length(options[["plotItemCharacteristicItems"]] > 0)) {
     text <- createJaspHtml(gettext("<h3>Explanatory Text: Item Characteristic Curves</h3>An item characteristic curve (ICC) plot shows how different test questions or items perform. It is like a graph that helps us understand how easy or hard each question is and how likely people with different abilities are to answer them correctly. In the figure, you can see a line for each question, and the shape of the line tells you if the question is easy or difficult to answer fully correctly as a function of the ability of a respondent."))
     text$position <- position
     text$dependOn(options = c("explanatoryText", "plotItemCharacteristicItems"))

Original file line number	Diff line number	Diff line change
`@@ -467,7 +467,7 @@`
`467`	`467`	`}`
`468`	`468`
`469`	`469`	`.irtIRTItemCharCurve <- function(dataset, options, jaspResults, ready, position) {`
`470`		`- if (options[["explanatoryText"]] && options[["plotItemCharacteristic"]]) {`
	`470`	`+ if (options[["explanatoryText"]] && length(options[["plotItemCharacteristicItems"]] > 0)) {`
`471`	`471`	text <- createJaspHtml(gettext("<h3>Explanatory Text: Item Characteristic Curves</h3>An item characteristic curve (ICC) plot shows how different test questions or items perform. It is like a graph that helps us understand how easy or hard each question is and how likely people with different abilities are to answer them correctly. In the figure, you can see a line for each question, and the shape of the line tells you if the question is easy or difficult to answer fully correctly as a function of the ability of a respondent."))
`472`	`472`	`text$position <- position`
`473`	`473`	`text$dependOn(options = c("explanatoryText", "plotItemCharacteristicItems"))`