在Shiny Server上找不到PhantomJS

时间:2018-02-09 09:02:09

标签: r ubuntu phantomjs plotly shiny-server

我正在使用plotly的导出函数来生成png图。 我在Ubuntu 14.04上安装了Shiny Server。

它适用于我的本地计算机。 当我从服务器上的控制台打开R时,它可以工作。但是,当我在服务器上运行Shiny app时,我得到了PhantomJS错误。

PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.

我已经安装了PhantomJS,因为我可以通过R控制台生成图像,我认为它存在于PATH中。

如何解决此问题或如何测试以找到问题点?

1 个答案:

答案 0 :(得分:3)

首先,从Ubuntu服务器上的终端安装webshot包:

sudo su - -c "R -e \"install.packages('webshot')\""

接下来,请关注phantomJS的{​​{3}}:

sudo apt-get update
sudo apt-get install build-essential chrpath libssl-dev libxft-dev -y
sudo apt-get install libfreetype6 libfreetype6-dev -y
sudo apt-get install libfontconfig1 libfontconfig1-dev -y
cd ~
export PHANTOM_JS="phantomjs-2.1.1-linux-x86_64"
wget https://github.com/Medium/phantomjs/releases/download/v2.1.1/$PHANTOM_JS.tar.bz2
sudo tar xvjf $PHANTOM_JS.tar.bz2
sudo mv $PHANTOM_JS /usr/local/share
sudo ln -sf /usr/local/share/$PHANTOM_JS/bin/phantomjs /usr/local/bin
phantomjs --version

有了这个,你应该可以使用webshotphantomJS使用闪亮的应用程序。

我使用了一个小样本测试应用程序对其进行了测试,我将其添加到/srv/shiny-server/

ui.R看起来像这样:

library(shiny)

ui <- fluidPage(

  # App title ----
  titlePanel("Test App to display webshot"),

  # Sidebar layout
  sidebarLayout(


    sidebarPanel(

      #actually useless part

    ),

    # Main panel for displaying outputs ----
    mainPanel(

      # Output: screenshot ----
      imageOutput("webshot_image")

    )
  )
)

server.R看起来像这样:

library(shiny)
server <- function(input, output) {

  output$webshot_image <- renderImage({
    # A temp file to save the output.
    # This file will be removed later by renderImage
    outfile <- tempfile(fileext = '.png')

    # Generate the PNG
    webshot::webshot(url = "https://github.com/rstudio/shiny",
                     file = outfile)

    # Return a list containing the filename
    list(src = outfile,
         contentType = 'image/png',
         width = 400,
         height = 300,
         alt = "This is alternate text")
  }, deleteFile = TRUE)

}

最终结果如下:

installation description