R блестящий помощник не с htmlOutput

Question

R Функция глянца observe_helpers не видит помощников, пропущенных через функцию вывода, такую ​​как htmlOutput, что вызывает сожаление, поскольку это небольшой полезный пакет. Ниже приводится MWE.

UI

library(shiny)
library(shinyhelper)

ui = fluidPage(
  sidebarLayout(
    sidebarPanel(
      selectInput("var", 
                  label = "var",
                  choices = c("A", "B", "C", "D")) %>% 
        helper(icon="question",                                          
               type="markdown",
               content="herp")),        
    mainPanel(
      htmlOutput("selected"))
))

Сервер

server = function(input, output,session) {
  observeEvent(input$var, {
    if(input$var=="B"){
       output$selected <- renderUI({ 
                            fluidRow(
                              column(4,textInput(inputId="derp",
                                                 label="derp") %>% 
                                         helper(icon="question", 
                                                type="markdown",                                                                 
                                                content="flerp")),
                              column(8))})
}})

  observeEvent(input$derp, {print(input$derp)})

  observe_helpers()  

}

runApp(list(ui = ui, server = server))

Мне известно, что helper работает при подключении по трубе к htmlOutput, но это бесполезно, когда мы хотим отобразить пользовательский интерфейс на сервере, который содержит несколько виджетов со своими собственными помощниками.

Буду признателен за любые предложения по устранению этой проблемы.

Answer 1

Теперь вы можете обновить версию блестящей версии v0.3.1, что должно решить эту проблему.