Add 'other controls' section to Interface example

Author: PabRod

R/examples.R

@@ -13,12 +13,20 @@ interfaceExample <- function(jaspResults, dataset, options) {
         paste(gettextf("<br> The radio buttons are set to: %s", as.character(options$radio_buttons)))
     )
 
+    jaspResults[["others"]] <- createJaspHtml(
+      title = "Other controls",
+      text = aux |>
+        paste(gettextf("The chosen dropdown element is: %s", as.character(options$my_dropdown))) |>
+        paste(gettextf("<br> The slider value is: %s", as.character(options$my_slider)))
+    )
+
     jaspResults[["keyboard"]] <- createJaspHtml(
       title = "Keyboard controls",
       text = aux |>
         paste(gettextf("The integer is set to: %s", as.character(options$my_integer), sep = "")) |>
         paste(gettextf("<br> The double is set to: %s", as.character(options$my_double), sep = ". ")) |>
         paste(gettextf("<br> The percentage is set to: %s", as.character(options$my_percent), sep = ". ")) |>
+        paste(gettextf("<br> The confidence interval is set to: %s", as.character(options$my_ci), sep = ". ")) |>
         paste(gettextf("<br> The text box is set to: <i>%s</i>", options$my_text, sep = ". "))
     )
 

inst/qml/Interface.qml

@@ -63,6 +63,38 @@ Form
 		}
 	}
 
+	Group
+	{
+		title: qsTr("Other controls")
+
+		DropDown
+		{
+			info: qsTr("This is a dropdown that can be used to select one of a list of options")
+
+			name: "my_dropdown"
+			label: qsTr("Select an option")
+
+			// We can add some extra control parameters
+			values: ["option 1", "option 2", "option 3"]
+		}
+
+		Slider
+		{
+
+			info: qsTr("This is a slider that can be used to select a value in a range")
+
+			name: "my_slider"
+			label: qsTr("Select a value")
+
+			// We can add some extra control parameters
+			min: 0
+			max: 1
+			value: 0.5
+			decimals: 3
+			vertical: false
+		}
+	}
+
 	Group
 	{
 		title: qsTr("Keyboard inputs")
@@ -103,6 +135,14 @@ Form
 			label: qsTr("Input a percentage")
 		}
 
+		CIField
+		{
+			info: qsTr("This is the number that will be used in the operation")
+
+			name: "my_ci"
+			label: qsTr("Input a confidence interval")
+		}
+
 		TextField
 		{
 			info: qsTr("This is a text field that can be used to input any text")