From 167d5cce95cf672fc765663d591d8a5b85b57348 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andr=C3=A9=20Ver=C3=ADssimo?=
 <211358+averissimo@users.noreply.github.com>
Date: Mon, 13 Nov 2023 12:30:35 +0100
Subject: [PATCH] Corrects ComboBox.R example

---
 inst/examples/ComboBox.R | 4 ++--
 man/ComboBox.Rd          | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/inst/examples/ComboBox.R b/inst/examples/ComboBox.R
index d9212d33..fe3a1811 100644
--- a/inst/examples/ComboBox.R
+++ b/inst/examples/ComboBox.R
@@ -10,7 +10,7 @@ options <- list(
 ui <- function(id) {
   ns <- NS(id)
   div(
-    ComboBox.shinyInput(ns("combo"), value = list(text = "some text"),
+    ComboBox.shinyInput(ns("combo"), value = "some text",
       options = options, allowFreeform = TRUE
     ),
     textOutput(ns("comboValue"))
@@ -20,7 +20,7 @@ ui <- function(id) {
 server <- function(id) {
   moduleServer(id, function(input, output, session) {
     output$comboValue <- renderText({
-      sprintf("Value: %s", input$combo$text)
+      sprintf("Value: %s", input$combo)
     })
   })
 }
diff --git a/man/ComboBox.Rd b/man/ComboBox.Rd
index 79dbfa8a..08e574b8 100644
--- a/man/ComboBox.Rd
+++ b/man/ComboBox.Rd
@@ -109,7 +109,7 @@ options <- list(
 ui <- function(id) {
   ns <- NS(id)
   div(
-    ComboBox.shinyInput(ns("combo"), value = list(text = "some text"),
+    ComboBox.shinyInput(ns("combo"), value = "some text",
       options = options, allowFreeform = TRUE
     ),
     textOutput(ns("comboValue"))
@@ -119,7 +119,7 @@ ui <- function(id) {
 server <- function(id) {
   moduleServer(id, function(input, output, session) {
     output$comboValue <- renderText({
-      sprintf("Value: \%s", input$combo$text)
+      sprintf("Value: \%s", input$combo)
     })
   })
 }