Question

我正在尝试创建我的第一个基本的Shiny Gadget。但是，当我尝试运行有问题的Shiny小工具功能时，它只是在控制台窗口中打印R函数的内容，而实际上并不运行该函数本身。

在故障排除中，如果我分别运行ui和服务器组件，然后运行runGadget命令，则该小工具确实会运行，因此该函数没有初始化或被阻止。

我已经在网络上搜索了有关运行Shiny应用程序的问题，但找不到任何帖子。同样，在发生这种情况时也不会出错，以提供任何线索。

例如，当我尝试运行第一个示例时：

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”和启动小工具。

Answer 1

您只需要将代码的最后一行从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

RStudio中的Shiny-Gadget问题-无法启动/运行-未返回错误

1 个答案: