Fix 868 869

[ilyaZar]

Fix #869

Fix #869

To verify, generate a fresh golex witrh create_golem and thenb

1. generate the binding files
   run this in the Console:

  golem::add_js_input_binding("custom", open = FALSE)
  golem::add_js_output_binding("custom", open = FALSE)

this should create:

  - inst/app/www/custom-input.js
  - inst/app/www/custom-output.js
  - R/fct_custom_input_binding.R
  - R/fct_custom_output_binding.R

2. rplace R/app_ui.R with this
   You only need to change the fluidPage(...) part:

  app_ui <- function(request) {
    tagList(
      golem_add_external_resources(),
      fluidPage(
        customInput("myCustom", "Enter something:", value = "Hello"),
        actionButton("set_custom", "Set from server"),
        tags$hr(),
        verbatimTextOutput("echo"),
        tags$hr(),
        customOutput("custom_out")
      )
    )
  }

3. replace R/app_server.R with this

  app_server <- function(input, output, session) {
    observeEvent(input$set_custom, {
      updateCustomInput(
        session,
        "myCustom",
        label = "Updated label",
        value = "Updated from server"
      )
    })

    output$echo <- renderPrint({
      input$myCustom
    })

    output$custom_out <- renderCustom({
      paste(
        "Output binding says:",
        if (is.null(input$myCustom)) "" else input$myCustom
      )
    })
  }

4. run the app
   In RStudio, do one of these:

docuemt_and_reload(), and or build pkg

then run run_app()

5. wehen the app opens you should see:

• a text input labeled Enter something:
• its initial value should be Hello
• a button Set from server
• a verbatimTextOutput showing "Hello"
• a custom output showing Output binding says: Hello

6. type into the text input:

• the verbatimTextOutput should update as you type
• the custom output should also update as you type

click Set from server:

• the input label should change to Updated label
• the input value should change to Updated from server
• both outputs should update accordingly