R 在查看器中调用函数

在RStudio中，我希望在查看器中显示一个闪亮的函数

hi.app

。默认行为是在浏览器中打开应用程序

hi.app <- function() {
  require(shiny)
   shinyApp(
    ui = fluidPage(
          textInput("name", "Write your name", value = "stranger"),
          verbatimTextOutput("greeting")
    ),
   server = function(input, output) {
             output$greeting <- renderPrint({
             greeting <- paste("Hi,", input$name)
             greeting
             })
   }
  )
}
hi.app()

---

hi.app添加如下选项

hi.app <- function() {
    require(shiny)
    shinyApp(
        ui = fluidPage(
            textInput("name", "Write your name", value = "stranger"),
            verbatimTextOutput("greeting")
        ),
        server = function(input, output) {
            output$greeting <- renderPrint({
                greeting <- paste("Hi,", input$name)
                greeting
            })
        },
        options=options(shiny.launch.browser = .rs.invokeShinyWindowViewer)
    )
}
hi.app()

hi.app添加如下选项

hi.app <- function() {
    require(shiny)
    shinyApp(
        ui = fluidPage(
            textInput("name", "Write your name", value = "stranger"),
            verbatimTextOutput("greeting")
        ),
        server = function(input, output) {
            output$greeting <- renderPrint({
                greeting <- paste("Hi,", input$name)
                greeting
            })
        },
        options=options(shiny.launch.browser = .rs.invokeShinyWindowViewer)
    )
}
hi.app()

hi.app更新：如果闪亮的应用程序是本地运行的，那么使用
闪亮的小工具而不是
闪亮的应用程序
似乎是绝对正确的。参数con可以通过
runGadget（…）
中的
viewer
参数设置：

hi_app更新：如果闪亮的app是本地运行的，那么使用
闪亮的gadgets
而不是
闪亮的apps
似乎是绝对正确的。参数con可以通过
runGadget（…）
中的
viewer
参数设置：

hi_应用程序感谢您的建议，但它仍然会启动浏览器。它可能是特定于操作系统的吗？我正在运行Windows 8、RStudio 0.99.491和Shining 0.13.1它在Windows 7、RStudio 0.99.902和Shining 0.13.2下运行。尝试重新启动R会话。已重新启动，但仍然无法工作。我想知道在我的例子中是否没有更深层次的配置问题。谢谢你的建议，但它仍然会启动浏览器。它可能是特定于操作系统的吗？我正在运行Windows 8、RStudio 0.99.491和Shining 0.13.1它在Windows 7、RStudio 0.99.902和Shining 0.13.2下运行。尝试重新启动R会话。已重新启动，但仍然无法工作。我想知道在我的案例中是否存在更深层次的配置问题。