2017-01-19 13 views
1

私はさまざまな品質指標に関する情報を持っているshinyAppを持っています。 各インジケータには、関連する書式設定された単語文書があります。 私は、選択したインジケータに応じて正しい文書を表示したいと思います。私はincludeHTMLを(使用できるように、私はこのすべてがうまく機能...私は私が実際に呼び出したい文書を呼び出しを開始するまで...アプリがグレー表示なし)HTMファイルとしてRshiny includeHTML()グレー表示

library(shiny) 
library("xtable") 

dir <- "H:\\TEMP\\" 

print(xtable(mtcars), type="html", file=paste0(dir, "example1.html")) 
print(xtable(iris), type="html", file=paste0(dir, "example2.html")) 
print(xtable(cars), type="html", file=paste0(dir, "example3.html")) 


runApp(
    list(
ui = fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectInput("docselect", "Select:", c("example1.html", "example2.html", "example3.html")) 
     , width = 2), 

    mainPanel(

     tabsetPanel(
     tabPanel(title = "Empty"), 
     tabPanel(title = "Results", uiOutput("DoC")) 
    ) 
    ) 
) 
) 

, server = function(input, output, session){ 
    output$DoC <- renderUI({includeHTML(path = paste0(dir, input$docselect)) 
    }) 

} 
) 
) 

をワードファイルを保存していますRのいずれかのエラー...私は、しかし、私は同様の問題を持つ任意の他の記事を見つけることができません許可されていないいくつかの隠されたフォーマットがあるかもしれない疑い

...

そのあたりの単語ではなく、変換の問題私は新しい単語の文書を開いたり、テキストを書き込んだり、テーブルを追加したり、htmとして保存したり、アプリケーション内でこれを開くことができます。

歓迎以上のアイデア!

よろしく、 リュック

編集:私はちょうどブラウザでHTMLを開き、CTRL + Uを押すことで判明、あなたが実際のhtmlコードを見ることができます。 wordで作成されたhtmlファイルには、多くの定義があります。私はhttps://word2cleanhtml.com/に行き、htmlコードを 'きれいにしました'。新しいクリーンなHTMLもdoes not load。再び、グレー表示されています...エラーメッセージではありません...

答えて

1

includeHTLM('path')HTML(readLines('path'))に置き換えて解決します。

関連する問題