Trying to reconcile logging verse textOutput in R Shiny reactive values - r

Question

When building out a shiny application and testing management of reactive components I came across this oddity when trying to dynamically fill textOutputs based on a selection in another table. I am unable to show the correct value in the textOutput but the Shiny Logger would seem to indicate my value is correct.
UI ouput is the row number.
Shinylogger output is the accountID
POC developed from these resources:
Subset a Column of a dataframe stored as a reactive expression eventReactive
Returning a dataframe in a reactive function in R Shiny Dashboard
POC code below.
Looking to reconcile why the shinylogger value is different from the textOutput value in the UI.
library(shiny)
library(shinyEventLogger)
library(bs4Dash)
library(dplyr)
ui <- fluidPage(
fluidRow(
column(
width = 12,
div(
bs4Dash::bs4Card(
id = "searchtableCard",
title = "Search Results",
elevation = 3,
width = 12,
closable = FALSE,
DT::dataTableOutput("searchTable")
)
)
)
),
fluidRow(
textOutput("accountid")
)
)
server <- function(input, output){
shinyEventLogger::set_logging(
r_console = TRUE,
file = TRUE,
js_console = TRUE)
shinyEventLogger::set_logging_session()
searchresults <- data.frame(
accountID = c("12345", "54321"),
lastname = c("McDingus", "McKraken"),
phone1 = c("555-123-5432", "555-000-5432")
)
applications <- data.frame(
accountID = c("12345", "54321"),
firstname = c("Alison", "Angus"),
lastname = c("McDingus", "McKraken"),
veh_make = c("Dodge", "Honda"),
veh_model = c("Charger", "Civic")
)
searchreactive <- shiny::reactive({searchresults})
# Search Table Output
output$searchTable = DT::renderDataTable({
searchreactive()
},
extensions = "Responsive", filter = "bottom", selection = 'single'
)
shiny::observeEvent(input$searchTable_rows_selected, {
s = input$searchTable_rows_selected
selRow <- searchreactive()[s,]
id = selRow[[1]]
app_active <- applications %>%
filter(accountID == id)
shinyEventLogger::log_value(app_active$accountID)
output$accountid <- shiny::renderText(app_active$accountID)
})
}
# Run the application
shinyApp(ui = ui, server = server)