2016-08-12 6 views
0

この質問が効率的に語られていない場合は、私を許してください。これは質問を投稿する私の最初の時間です。 私はShiny Appを書いています。数日前までかなりうまくいっています。私は、アプリケーションを実行するたびに、私のアプリケーションにまったくマッチしない出力が表示されるという問題に遭遇しました。 。むしろ、出力はここ それが何であれ(最後に実行したスクリプトに関連すると思わ私のコードです:間違ったスクリプトを表示しているRshinyアプリ

`
ライブラリ(光沢) ライブラリ(shinyBS)

shinyUi= fluidPage() 

shinyApp(ui = ui, server = server)   

`ここ

とは私のサーバーです:

shinyServer(function(input, output, session) {} 




shinyApp(ui = ui, server = server) 

私が原因となっている見当がつかない私が実際に実行しているスクリプトの結果ではなく、間違った結果を表示するように光ります。 誰かがどのようにして問題を特定したり修正したりすることができれば、私は非常に感謝しています。

EDIT: 私の質問に答えられて以来、私の投稿されたコードの大部分は余分であったことが判明したので、私は先に行って裸の骨に取り除いた。それはそれをより簡潔にするはずです。 [このアプリは2つの別々のファイルUi.Rserver.Rで構成され、あなたはそれが実行されるため、両方のスクリプトでの最終行

shinyApp(ui = ui, server = server)

を削除する必要があり、RStudioでボタンrunappを押すことによって、それを実行した場合

+0

を実行スタックオーバーフローへようこそ:) –

答えて

0

前に定義した光沢のあるアプリ - uiserverという変数で定義されたスクリーンショットのこのアプリ。また、runappボタンを押した後、アプリが正常に動作する必要があります今

shinyUi= fluidPage(` to fluidPage(

から Ui.Rの最初の行を変更する必要があります。


他の可能性は、uiserver変数を上書きして(1ファイル光沢のアプリとして)shinyAppを介してそれを実行することです。ただ、同じスクリプトへのアプリの2つの部分をコピーして、最後に

shinyUi= fluidPage(to ui <- fluidPage(

server <- shinyServer(function(input, output, session) { 

を変更するだけで

shinyApp(ui = ui, server = server) 
+1

ありがとうございました!私はスクリプトの最後にshinyAppステートメントを削除しましたが、これは私の問題を修正したようです。あなたは最高です! – Jim

関連する問題