使用有光泽的网纹时出错

如何解决使用有光泽的网纹时出错

我试图在闪亮的应用程序中使用 python 包从网页中提取正文：https://newspaper.readthedocs.io/en/latest/

我所说的正文是文章的正文，没有任何添加、链接等...（非常类似于 iphone safari 中的“读者视图”）。

据我所知，r 中没有类似的包，如果您知道请告诉我。

这个应用程序的目标是允许用户插入一个网址，点击提交并获得干净的文本作为输出。

请找到下面的代码以及错误信息。我正在使用 rstudio 云。

这是错误：

Using virtual environment 'python3_env' ...
Warning in system2(python,c("-c",shQuote(command)),stdout = TRUE,stderr = TRUE) :
  running command ''/cloud/project/python3_env/bin/python' -c 'import sys; import pip; sys.stdout.write(pip.__version__)' 2>&1' had status 1
Warning in if (idx != -1) version <- substring(version,1,idx - 1) :
  the condition has length > 1 and only the first element will be used
Warning: Error in : invalid version specification ‘’,‘  ’
  52: stop
  51: .make_numeric_version
  50: numeric_version
  49: pip_version
  48: reticulate::virtualenv_install
  47: server [/cloud/project/python in shiny.R#42]
Error : invalid version specification ‘’,‘  ’

这是代码：

# Python webpage scraper followed by r summary: 


library(shiny)
library(reticulate)


ui <- fluidPage(
  
  sidebarLayout(
    sidebarPanel(
      
      textInput("web","Enter URL:"),actionButton("act","Submit") 
      
    ),mainPanel(br(),tags$head(tags$style(HTML("pre { white-space: pre-wrap; word-break: keep-all; }"))),verbatimTextOutput("nText"),br() 
    )
  )
)


 
server <- function(input,output){
  
  #1) Add python env and packages: 
 
  reticulate::virtualenv_install('python3_env',packages = c('newspaper3k','nltk')) 
  
  
  py_run_string("from newspaper import Article")
  py_run_string("import nltk")
  py_run_string("nltk.download('punkt')")
  
  
  
  #2) Pull the webpage url: 
  webad <- eventReactive(input$act,{
    req(input$web)
    input$web
  })
  
  
 
  
  
  observe({
    
    py$webadd = webad
    
    py_run_string("article = Article('webadd')")
    
    py_run_string("article.download()")
    py_run_string("article.parse()")
    py_run_string("article.nlp()")
    py_run_string("ztext =article.text")
    py_run_string("r.ntexto = ztext")
    
    
    
    
    output$nText <- renderPrint({
      r.ntexto
    })
    
    
  })
  
}


 

shinyApp(ui = ui,server = server)