Início / coding / Perguntas / 78976397
Accepted
Salvador
Asked: 2024-09-12 11:44:42 +0800 CST

Como encontrar R_HOME com VBA Environ

  • 772

Posso encontrar o caminho para R usando Sys.getenv()assim:

Sys.getenv("R_HOME")
[1] "C:/PROGRA~1/R/R-41~1.1"

No entanto, estou tentando encontrar o R_HOME com a Environfunção do Excel VBA com uma sub-rotina mais ou menos assim:

Sub findR()
Dim a As String
a = Environ$("R_HOME")
MsgBox a
End Sub

A caixa de mensagem retorna vazia. R_HOME está no ambiente, mas por algum motivo Environnão consegue encontrá-lo. Veja uma captura de tela anexada mostrando R_HOME no ambiente. Alguém poderia me indicar a direção certa para encontrar R_HOME com Environ VBA?

insira a descrição da imagem aqui

1 respostas

  1. Best Answer

    Esta função VBA, GetREnviron, foi projetada para recuperar variáveis ​​de ambiente de uma instalação R, como R_HOME, executando um pequeno script R por meio da linha de comando do Windows.

    Parâmetro EnvName: A função recebe um parâmetro, EnvName, que é o nome da variável de ambiente que você deseja recuperar (por exemplo, "R_HOME").

    Construção do script R: a função cria dinamicamente um pequeno script R (Rscript -e "cat(Sys.getenv('EnvName'))") para recuperar o valor da variável de ambiente especificada usando a função Sys.getenv do R.

    Execução do Shell: Ele usa o objeto WScript.Shell para executar o script R e capturar a saída (StdOut.ReadAll). Esta saída é o valor da variável de ambiente.

    Corte de saída: quaisquer espaços em branco extras ou caracteres de nova linha são cortados da saída.

    Tratamento de erros: se algo der errado (por exemplo, o R não estiver instalado ou a variável não existir), a função retornará uma mensagem de erro genérica, "Erro: Não é possível recuperar EnvName".

    Essa abordagem permite recuperar dinamicamente qualquer variável de ambiente R passando seu nome como um argumento para a função.

    Function GetREnviron(Name As String) As String
    Dim RScript As String
    Dim ShellOutput As String
    On Error GoTo ErrHandler
    
    Rem R script to print the specified environment variable
    RScript = "Rscript -e ""cat(Sys.getenv('" & Name & "'))"""
    
    Rem Create a Shell object
    With VBA.CreateObject("WScript.Shell")
        Rem Run the R script and capture the output
        ShellOutput = .Exec(RScript).StdOut.ReadAll
    End With
    
    Rem Trim any extra whitespace from the output
    GetREnviron = Trim(ShellOutput)
    
    Exit Function

ErrHandler:
    GetREnviron = "Error: Unable to retrieve " & Name
End Function

    Adenda

    Explicação das alterações:

    • Em vez de usar .Exec, usamos .Run com o argumento 0 para ocultar a janela de comando.
    • A saída é redirecionada para um arquivo temporário e, após a execução, o conteúdo do arquivo é lido e retornado.
    • O arquivo temporário é excluído após o uso para limpeza.
    • 0

relate perguntas