如何以表格格式以“ Shiny”形式显示“ pdfsearch”输出，并显示可见的文本列，页码，行号？

如何解决如何以表格格式以“ Shiny”形式显示“ pdfsearch”输出，并显示可见的文本列，页码，行号？

我使用Shiny创建了一个简单的pdfsearch搜索选项。但是，我希望输出采用表格形式以便于阅读。我尝试使用数据表包，但似乎没有获得所需的正确格式。

library(pdfsearch)
library(shiny)
library(DT)


file <- system.file('pdf','rhyme.pdf',package = 'pdfsearch')

word_sentence <-function(word) {keyword_search(file,keyword = word,path = TRUE)}



retobj <- function(word) {
  x <- word_sentence(word)
  page <- x$page_num
  line <- x$line_num
  text <- x$line_text
  return(paste0(text," "," *Page no-",page," *line-",line))
}


ui<- shinyUI(fluidPage(dashboardBody(
  img(src='image.jpg',align = "left"),style = "padding-top:20px",br(),fluidRow(
    column(width = 2,h5(HTML("<strong>Enter a word.Click \"SEARCH\" </strong>")),wellPanel(
             textInput("inputString","Enter a word here",value=" "),submitButton("SEARCH"),)),column(width= 7,style = "max-height: 90vh; overflow-y: auto;",h4("Search Results"),wellPanel(            
             tags$style("#mytext { white-space: pre-line; }"),textOutput("mytext")
           ))
         )
       )
     ) 
    ) 


server <- function(input,output,session) {
  output$mytext <- renderPrint({
    sentences <- retobj(input$inputString)
    length(sentences)
    cat(paste0(1:length(sentences)," - ",sentences,sep= '\n'))
  })
}


shinyApp(ui,server)

例如，我在搜索“ hill”一词时得到了输出。为：

1.jack went to the hill blah blah *Page no- 12 * line no -34
2.jack went rolling on hill blah  *Page no 17 *line no - 56
3.jill climbed the hill blah blah * Page no 34  * line no -89
''''
20......

我希望输出采用Shiny显示的表格格式，例如：

              Text                          Page no       Line No 

  jack went to the hill blah                   12            34

  jack went rolling on hill blah               17            56
 
  jill climbed the hill   blah                 34            89
 
  '    ''''''''''          

使用Shiny的renderDataTable部分的server和tableOutput中的ui给我提供了在R控制台而不是Shiny中输出的信息， retob <- function({.....tableHTML(text,line)}，但不是矩阵格式，这给了我错误。是否有一种更干净的方法以上述方式格式化内容？

解决方法

实际上您的retobj函数是问题所在，因为它仅创建一个字符串作为返回值。但是，keyword_search已经返回了一个小标题，因此您可以直接使用此输出，然后dplyr将其输出为所需的格式，最后DT将其显示出来：

library(pdfsearch)
library(shiny)
library(shinydashboard)
library(DT)
library(dplyr)


file <- system.file('pdf','1501.00450.pdf',package = 'pdfsearch')

word_sentence <-function(word) {keyword_search(file,keyword = word,path = TRUE)}



ui<- shinyUI(fluidPage(dashboardBody(
  
  
  br(),br(),fluidRow(
    column(width = 2,h5(HTML("<strong>Enter a word.Click \"SEARCH\" </strong>")),wellPanel(
             textInput("inputString","Enter a word here",value=" "),submitButton("SEARCH"),)),column(width= 7,style = "max-height: 90vh; overflow-y: auto;",h4("Search Results"),wellPanel(            
             tags$style("#mytext { white-space: pre-line; }"),DTOutput("mytext")
           ))
  )
)
) 
) 


server <- function(input,output,session) {
  
  output$mytext <- renderDT({
    results <- word_sentence(input$inputString)
    results <- results %>% 
      select(line_text,page_num,line_num) %>% 
      rename(Text = line_text,`Page no` = page_num,`Line no` = line_num)
    datatable(results)
  })
}


shinyApp(ui,server)