То, что я пытаюсь сделать, очень распространено в мире баз данных. У меня есть сводный список, в котором перечислены все области отдела с его менеджерами. В другой таблице у меня есть список менеджеров и их коды. Я хочу, чтобы в раскрывающемся списке можно было отображать имена менеджера, но когда я выбираю имя менеджера, в таблице областей записывается код менеджера. Мне понадобится выпадающий список, который показывает два столбца (имя менеджера / код менеджера), но когда я выбираю имя менеджера, код - это то, что фактически записывается в таблицу областей.
Я попытался соединить код пользователя и имя взапрос SQLite, который работал, но затем все записывается в таблицу областей, а не только код. Мне нужно два столбца в раскрывающемся списке и каким-то образом только связать столбец UserCode. Блестящий selectInput делает это отлично в форме. Я читал кое-что о включении пользовательского рендера (https://jrowen.github.io/rhandsontable/#custom_renderer) в rhandsontable. Можно ли включить блестящий раскрывающийся список selectInput внутри rhandsontable для решения этой проблемы двух столбцов?
query2 <- "SELECT UserCode || ' | '|| Name FROM Users ORDER BY UserCode"
CodeList<- dbGetQuery(db, query2)[,1]
output$SubTableAreas <- renderRHandsontable(rhandsontable(datavalues$data,width=1000,selectCallback = TRUE,readOnly = FALSE) %>%
hot_context_menu (allowRowEdit= FALSE, allowColEdit = FALSE)%>% hot_col (col = "ManagerCode", type = "dropdown", source = CodeList))
Здесь вы можете увидеть лучшее, чего мне удалось достичь: https://rodrigopcoelho.shinyapps.io/SixSigmaApp/
Выберите «Определить» на панели навигации, а затем «Отделы и районы», найдите отдел 111111, а затем вы можете нажать на поле «SiglaGovernador», чтобы увидеть, как оно функционирует.