Переключатель Shinyjs не работает, если включен в пакет - PullRequest
Новая
       21

Переключатель Shinyjs не работает, если включен в пакет

0 голосов
/ 10 апреля 2019

Я использовал shinyjs::toggle в R-скрипте, где у меня есть функции ui и server в одном файле.Таким образом, это работало замечательно, однако, как только я использую один и тот же код в 2 отдельных файлах (ui.R и server.R) как часть пакета, он больше не работает.Нет никаких сообщений об ошибках, функция просто не показывает и не скрывает элемент, для которого я ее использую.Как автономный R-скрипт, он работает, когда я использую те же функции в пакете, который он не использует. 

library(shiny)
library(shinydashboard)
library(shinyjs)

ui <- dashboardPage(
 dashboardHeader(),
 dashboardSidebar(),
 dashboardBody(
   useShinyjs(),
   actionButton("button", "Click me"),
   div(id = "hello", "Hello!")
 )
)

server <- function(input, output) {
 observeEvent(input$button, {
   toggle("hello")
 })
}

shinyApp(ui, server)

В пакете: 

#' Shiny App UI
#'
#' @import shiny
#' @import shinydashboard
#' @import  shinyjs
#'
#'


uitest <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    useShinyjs(),
    actionButton("button", "Click me"),
    div(id = "hello", "Hello!")
  )
)


#' Shiny app server function
#'
#' @param input provided by shiny
#' @param output provided by shiny
#'



servertest <- function(input, output) {
  observeEvent(input$button, {
    toggle("hello")
  })
}

Может кто-нибудь, пожалуйста, помогите мнеВот?Что может пойти не так?

...