Cách tạo mã exe cho mã r một cách chính xác

Question

Tôi muốn cho phép người dùng của mình sử dụng ứng dụng sáng bóng được lưu trữ trên gist.github.com sử dụng library(shiny);runGist("xxx"). Với mục đích này tôi đã tạo ra một thư mục có chứa Chrome di động, di động R và 2 tác phẩm:

1-run.R - chứa đoạn mã sau:

library(shiny);runGist("xxx") 

2 - VBScript mà nên gọi chạy. r vì vậy runGist sẽ được gọi.

Randomize 
CreateObject("Wscript.Shell").Run "R-Portable\App\R-Portable\bin\R.exe CMD BATCH --vanilla --slave run.R" & " " & RND & " ", 0, False 

Khi tôi nhấp vào VBScript không có gì xảy ra vì vậy tôi đoán tôi thiếu điều gì đó, cách giải quyết vấn đề này?

UPDATE: sau khi nhấp vào run.vbs tôi nhận được một tập tin được đánh số, khi tôi mở nó ra trên Notepad ++ Tôi đã nhận các văn bản sau đây:

Downloading https://gist.github.com/#############/download 
NULL 
[1] TRUE 

Listening on http://127.0.0.1:1337 

Khi tôi sao chép http://127.0.0.1:1337 cho trình duyệt nó mang lại cho những gì tôi muốn. Câu hỏi đặt ra là cách gọi trình duyệt bằng địa chỉ được cung cấp trong thư? - Tôi nhận thấy rằng mỗi nhấp chuột cung cấp một địa chỉ khác.

Answer 1

Bạn có thể ghi đè tùy chọn trình duyệt mặc định, sau đó runGist với launch.browser sẽ chỉ làm việc.

run.R

#Assuming your portable Chrome's relative path is "Chrome\Application\chrome.exe" 
options(browser = normalizePath("Chrome\\Application\\chrome.exe")); 

library(shiny); 
runGist("xxx", launch.browser = TRUE); 

run.vbs

Set Fso = CreateObject("Scripting.FileSystemObject") 
Set WshShell = CreateObject("Wscript.Shell") 
    'specify CD to start commands from script's parent folder 
    WshShell.CurrentDirectory = Fso.GetParentFolderName(WScript.ScriptFullName) 

'Start the command as hidden and don't wait 
WshShell.Run "R-Portable\App\R-Portable\bin\R.exe CMD BATCH --vanilla --slave run.R NUL", 0, False 

Answer 2

Từ quan điểm VBScript, vì tất cả những gì bạn đang sử dụng là đường dẫn tương đối, nếu thư mục hoạt động hiện tại (từ nơi đường dẫn tương đối được tính toán) không phải là điều bạn nghĩ bạn có thể gặp sự cố.

Bạn có thể thử với một cái gì đó tương tự (phiên bản verbose)

Option Explicit 

    'Initialize PRNG 
    Randomize 

Dim fso 
    ' As we are dealing with files/folders, it is better to use adecuate functions 
    Set fso = WScript.CreateObject("Scripting.FileSystemObject") 

Dim baseFolder 
    ' Retrieve the folder where the current script is stored 
    baseFolder = fso.GetFile(WScript.ScriptFullName).ParentFolder.Path 

Dim RScript 
    ' Combine the current folder and file to execute 
    RScript = fso.BuildPath(baseFolder, "run.R") 

Dim R 
    ' Combine the current folder and path to the R executable 
    R = fso.BuildPath(baseFolder, "R-Portable\App\R-Portable\bin\R.exe") 

Dim command 
    ' compose the command to execute 
    command = q(R) & " CMD BATCH --vanilla --slave " & q(RScript) & " " & Rnd 

    ' Execute the composed command 
    Call WScript.CreateObject("WScript.Shell").Run(command, 0, False) 

' Just a helper function to quote the file/folder paths in the command  
Function q(text) 
    q = """" & text & """" 
End Function 

Answer 3

Về cập nhật của bạn: Lưu ý, bạn có thể thiết lập số cổng như một cuộc tranh cãi trong runApp() Ví dụ: runApp (... , port = 1337)

Ví dụ:

n <- 200 


# Define the UI 
ui <- bootstrapPage(
    numericInput('n', 'Number of obs', n), 
    plotOutput('plot') 
) 


# Define the server code 
server <- function(input, output) { 
    output$plot <- renderPlot({ 
    hist(runif(input$n)) 
    }) 
} 

# Return a Shiny app object 
runApp(shinyApp(ui = ui, server = server), port = 1337) 

Edit: Câu trả lời cho theo dõi:

nếu điều này không giúp:

library(shiny);runGist(..., launch.browser = TRUE, port = 1337) 

thử điều này:

library(shiny);runGist(..., port = 1337);browseURL("http://127.0.0.1:1337")