default value is set every time

[Axyxo]

the default value should set only one time if the app is startet not every time if the focus is on the pivot element.

excample : change the default value and click on another pivot element and go back. the written value in the text fielt is deleted. how to switch this off?

if (interactive()) {
  library(shiny)
  library(shiny.semantic)
  
  shinyApp(
    ui = fluentPage(
      div(
 Pivot(
          PivotItem(headerText = "aaaaaaa",
                    div(
                      #class = "directoryTextInput",
                      TextField.shinyInput(
                        inputId="inputIdaaaaaaaaaaaaaaaaa",
                        label = "label",
                        #type = "text",
                        description = "description",
                        value = "defaultValueaaaaaaaaaaaaaaa"
                      ) )         
          ),
          PivotItem(headerText = "bbbbbb",
                    div(
                      #class = "directoryTextInput",
                      TextField.shinyInput(
                        inputId="inputIdbbbbbbbbbbbbbbbbbbb",
                        label = "label",
                        #type = "text",
                        description = "description",
                        value = "defaultValuebbbbbbbbbbbbb"
                      ) )         
          ) ) ) ),
 server = function(input, output) {}
  )
}

[ccrisc]

Try use UpdateTextInput instead

if (interactive()) {
  library(shiny)
  library(shiny.semantic)
  
  shinyApp(
    ui = fluentPage(
      div(
        Pivot(
          PivotItem(headerText = "aaaaaaa",
                    div(
                      TextField.shinyInput(
                        inputId = "inputIdaaaaaaaaaaaaaaaaa",
                        label = "label",
                        description = "description",
                        value = "defaultValueaaaaaaaaaaaaaaa"
                      )
                    )
          ),
          PivotItem(headerText = "bbbbbb",
                    div(
                      TextField.shinyInput(
                        inputId = "inputIdbbbbbbbbbbbbbbbbbbb",
                        label = "label",
                        description = "description",
                        value = "defaultValuebbbbbbbbbbbbb"
                      )
                    )
          )
        )
      )
    ),
    server = function(input, output, session) {
      # Reactive values to store the text input values
      rv <- reactiveValues(
        inputIdaaaaaaaaaaaaaaaaa = "defaultValueaaaaaaaaaaaaaaa",
        inputIdbbbbbbbbbbbbbbbbbbb = "defaultValuebbbbbbbbbbbbb"
      )
      
      # Update text input values only when the app is initialized
      observe({
        updateTextInput(session, "inputIdaaaaaaaaaaaaaaaaa", value = rv$inputIdaaaaaaaaaaaaaaaaa)
        updateTextInput(session, "inputIdbbbbbbbbbbbbbbbbbbb", value = rv$inputIdbbbbbbbbbbbbb)
      })
      
      # Store the user input in reactive values
      observeEvent(input$inputIdaaaaaaaaaaaaaaaaa, {
        rv$inputIdaaaaaaaaaaaaaaaaa <- input$inputIdaaaaaaaaaaaaaaaaa
      })
      
      observeEvent(input$inputIdbbbbbbbbbbbbbbbbbbb, {
        rv$inputIdbbbbbbbbbbbbbbbbbbb <- input$inputIdbbbbbbbbbbbbbbbbbbb
      })
    }
  )
}