Реактивный входной вектор странно использует кавычки в блестящих модулях

Question

Пререквизиты: Блестящее приложение с использованием модуля, содержащего выход пользовательского интерфейса. Сам вывод пользовательского интерфейса содержит любой вход (например, textInput). Все идентификаторы (от UIOutput и Ввода) генерируются с использованием ns()

замечания: мой input Вектор сохраняется внутри с цитатами. Это не проблема, но не позволяет мне использовать вход в javascript (в conditionalInput(condition='input.myModule-myInputtest=="someText"')). Как я могу добиться того, что input$'mymodule' называется input$myModule? Это ошибка, или я делаю что-то неправильно?

Спасибо заранее и наилучшими пожеланиями

Minimal Например:

library(shiny) 

ui <- fixedPage(
    h2("Module example"), myModuleUI("myModule"), verbatimTextOutput("summary") 
) 
server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({ reactiveValuesToList(input) }) 
} 
shinyApp(ui, server) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    uiOutput(ns("myInput")) 
} 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ textInput(ns("myInputtest"), "A Text Input") }) 
} 

Answer 1

К сожалению для ответа на свой вопрос, но я думаю, что это что-то другие люди будут сталкиваться.

Использование ввода в javascript (т. Е. В состоянии условие состояния) возможно через input['myModule-myInputtest'] вместо точечной нотации, которая может использоваться в ситуациях без блестящих модулей.

Answer 2

Вам нужно сделать следующее:

* Использование tagList() внутри myModuleUI

* Не используйте нс() внутри MyModule

Примечание:

нс() объединяет id из callModule() с любой переданной ей строкой. Например нс ("myInputtest") дает "MyModule-myInputtest"

library(shiny) 

## Module UI ---- 
myModuleUI <- function(id) { 
    ns <- NS(id) 
    # taglist should be added here 
    tagList(
    uiOutput(ns("myInput")) 
) 
} 

## Module Server ---- 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ 
    textInput("myInputtest", 
       "A Text Input") 
    }) 
} 

## UI ---- 
ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("myModule"), 
    verbatimTextOutput("summary") 
) 

## Server ---- 
server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({reactiveValuesToList(input)}) 
} 

# Run the application --------------------------------------------------------- 
shinyApp(ui = ui, server = server) 

Answer 3

Вы нашли очень интересный край случай. К счастью, есть еще один способ доступа к input детям, как вы уже обнаружили (используйте квадратные скобки вместо точек). Для тех, кто может наткнуться на это в Futre, вот минимальный рабочий пример, в том числе условно-панели:

library(shiny) 

myModuleUI <- function(id) { 
    ns <- NS(id) 
    tagList(
    uiOutput(ns("myInput")), 
    conditionalPanel(
     condition = "input['myModule-myInputtest'] === 'hello'", 
     # condition = "console.log(input['myModule-myInputtest'])", # useful for debugging 
     sliderInput(ns("breakCount"), "Break Count", min=1, max=1000, value=10) 
    ) 
) 
} 
myModule <- function(input, output, session, stringsAsFactors) { 
    output$myInput <- renderUI({ 
    textInput(session$ns("myInputtest"), "A Text Input") 
    }) 
} 

ui <- fixedPage(
    h2("Module example"), 
    myModuleUI("myModule"), 
    verbatimTextOutput("summary") 
) 

server <- function(input, output, session) { 
    callModule(myModule, "myModule", stringsAsFactors=F) 
    output$summary <- renderPrint({ reactiveValuesToList(input) }) 
} 

shinyApp(ui, server)