Проблема с Shiny-Gadget в RStudio - не запускается / не запускается - ошибки не возвращаются - PullRequest
Новая
       7

Проблема с Shiny-Gadget в RStudio - не запускается / не запускается - ошибки не возвращаются

0 голосов
/ 25 января 2019

Я пытаюсь создать свой первый основной Shiny Gadget.Однако, когда я пытаюсь запустить соответствующую функцию гаджета Shiny, она просто печатает содержимое функции R в окне консоли, но фактически не запускает саму функцию.

При устранении неполадок, если я запускаю пользовательский интерфейс &серверный компонент отдельно, а затем выполните команду runGadget, которую гаджет выполняет, поэтому что-то не инициализируется из функции или блокируется.

Я искал в Интернете проблемы с запуском блестящих приложений, но не смог найти ни одной записи,Также не возвращается ошибка, чтобы дать какую-либо подсказку, когда это происходит.

Так, например, когда я пытаюсь запустить первый пример: 

library(miniUI)

myFirstGadget <- function() {
        ui <- miniPage(
                gadgetTitleBar("My First Gadget")
                )
        server <- function(input, output, session) { 
                # The Done button closes the app 
                observeEvent(input$done, { 
                        stopApp()
                })
        } 
        runGadget(ui, server) 
        }

myFirstGadget

Я получаю следующее возвращаемое: 

> myFirstGadget
function() {
        ui <- miniPage(
                gadgetTitleBar("My First Gadget")
                )
        server <- function(input, output, session) { 
                # The Done button closes the app 
                observeEvent(input$done, { 
                        stopApp()
                })
        } 
        runGadget(ui, server) 
        }

вместо «прослушивания http://127. .0.0.1: 7057 » и запуска гаджета.

1 Ответ

0 голосов
/ 25 января 2019

Вам просто нужно изменить последнюю строку вашего кода с myFirstGadget на myFirstGadget(), и он запустится.Когда вы только что использовали myFirstGadget, он показывает вам код функции.Вам нужны скобки для запуска функции / вашего гаджета.

myFirstGadget <- function() {
  ui <- miniPage(
    gadgetTitleBar("My First Gadget")
  )
  server <- function(input, output, session) { 
    # The Done button closes the app 
    observeEvent(input$done, { 
      stopApp()
    })
  } 
  runGadget(ui, server) 
}

myFirstGadget() # <---- the only line that I edited
...