#Define the “shiny”, “ggplot2” and “scales” libraries
library(shiny)
library(ggplot2)
library(scales)

#Shiny Application
shinyServer(function(input, output) {

#Create a reactive expression
output$ProbPlot <- renderPlot({

  #Generate lambda value based on input$lambda from ui.R
  n=1:100
  lambda <- seq(min(n), max(n), length.out = input$lambda)
  probability=lambda

  #Generate the probability plot
  plot(probability, type = "o", col = 'blue', border = 'white', xlab="N (Number of Observations)", ylab ="Probability of occurrence")

})

})

下図のように、「Run External」オプションを選択したあとに「Run App」を選択して、アプリケーションを実行します。

アプリケーションを実行するとグラフが表示されて自動的に更新され、選択した試行の数に応じたNおよび発生確率の間の関係を折れ線グラフで視覚的に分析できます。

見てのとおりShinyを通じてこのアプリを実行すると、スライダーを使ってすぐに操作したり、結果を見たりできるため、よりユーザーフレンドリーになります。これはreactive expressionとして知られている手法を使って、ある変数が変更されるとほかの変数が自動的に更新します。

もしR単体でこのプログラムを実行したら、プログラムの実行のたびにソースコードにNの新しい値を入力する必要があります。特にR言語の知識をまだ習得していないユーザーにとってとても単調で非効率的な作業です。

上のスクリプトで注意しなければならない点は以下のとおりです。

• sidebarLayout関数は変動スライドバーを生成して試行回数に特定の値を入力できるようにするためのもの。min（最小値）、max（最大値）、value（一連の範囲内にある値の数）の内容によってこれを定義する
• server.Rスクリプトではコードにggplot2およびscalesライブラリーの双方が含まれることに注意。プログラムを実行する際、このアプリケーションを実行するのに2つのライブラリーは必須ではないことが分かる。しかし、ggplot2ライブラリーはもっと複雑なグラフを実行する際によく使用され、一方scalesライブラリーは軸や凡例の範囲にわたってさまざまなスケーリング方法を必要とするグラフデータをカスタマイズするのによく使用されるため、これらを組み込んだ
• さらにlambdaの値（server.Rスクリプトの最後から2番目のコマンド）を生成する際、nの最小値および最大値を持つ変数を生成して（ここでは1から100を定義）、ggplot2およびscalesライブラリーの双方を含んでいることが分かりる。ここでnと（lambdaという名の）確率関数とのやりとりを定義し、順にreactive expressionを実行する

#Generate lambda value based on input$lambda from ui.R
  n=1:100
  lambda <- seq(min(n), max(n), length.out = input$lambda)
  probability=lambda

HTMLのカスタマイズ

上で述べたように、折れ線グラフとその軸を即座に更新するためにreactive expressionを使ったアプリケーションを生成しました。ただ、最終的にアプリケーションとしてWebページを生成したいと考えた場合、HTMLでページのデザインを更新したいと思うかもしれません。

ここで紹介するHTMLの編集は、非常に基本的なことです。この記事では、Webページのタイトルのフォントや色を編集する方法に焦点をあてます。ただし、目的はRにおけるユーザーインターフェイスコードの編集方法を具体的に説明し、Webページをカスタマイズ可能にすることだと覚えておいてください。HTMLの挿入を許可するため、上で生成したui.Rファイルを少し修正します。

注意すべきもっとも重要な点の1つは、ui.Rのみを修正しているのであって、server.Rは変更されないことです。これは明らかに、HTMLがユーザーインターフェイスの修正が目的で使用されており、アプリケーション自体のパラメーターを修正するために使用されているのではないからです。

（この例のWebページのタイトルを編集するのに使用しているテンプレートはChris BeeleyのWeb Application Development with R Using Shiny第2版をベースにしています。個人的に素晴らしいガイド本だと思っているので、R/ShinyプログラミングやWebプラットホームの知識を深めようとしている人にはとてもお勧めです）

更新されたWebページを作成するのに使用した修正済みのui.Rプログラムは以下のとおりです。

#Call the “shiny” library
library(shiny)

# Define UI for application that draws a probability plot
shinyUI(fluidPage(
  tags$head(HTML("<link href='http://fonts.googleapis.com/css?family=Jura' rel='stylesheet' type = 'text/css'>")),

  h2("Probability Plots", style = "font-family: 'Jura'; color: red; font-size: 64px;"),

  # Application title
  #titlePanel("Probability Plots"),

  # Sidebar with a slider input for value of lambda
  sidebarLayout(
    sidebarPanel(
       sliderInput("lambda",
                "Number of trials:",
                min = 1,
                max = 50,
                value = 1)
  ),
    # Show a plot of the generated probability plot
    mainPanel(
      h3("Probability Graph", style = "font-family: 'Jura'; color: blue; font-size: 32px;"),
      HTML("<p>Probability readings</p>"),
       plotOutput("ProbPlot")
    )
  )
))