光沢のあるものとは何ですか？Shiny は、R から直接インタラクティブな Web アプリケーション (アプリ) を簡単に構築できるようにする R パッケージです。このシリーズは長いチュートリアルであり、シンプルなものから奥深いものまで、光沢のあるものを学びます。
前回「R言語シリーズチュートリアル 一緒にshinyを学ぼう(2)」でshinyのページレイアウトを紹介しましたが、今回は引き続きshinyにコントロールを追加してヒューマンマシンインタラクションを行う方法を紹介します。Shiny には多くのコントロールが用意されています。
ページ側では、すべてのコントロールは基本的に共通の文字入力 + ID を持ち、フロントエンドまたはバックエンドの識別子に接続されます。input+ID には次の 2 つの特徴があります。 1. 同じサーバー内で一意である必要があり、繰り返すことはできません。2. 文字、数字、アンダースコアのみを含む単純な文字列である必要があります (スペース、ダッシュ、ピリオド、その他の特殊文字は使用できません)。名前を付けるのは、R の変数に名前を付けるのと似ています。
タイプ別に見ると、光沢のあるコントロールにはテキスト入力タイプのコントロールがあります。下図の 3 つのテキスト タイプは異なることに注意してください。
library(shiny)
## Warning: 程辑包'shiny'是用R版本4.2.2 来建造的
ui <- fluidPage(
textInput("name", "What's your name?"),
passwordInput("password", "What's your password?"),
textAreaInput("story", "Tell me about yourself", rows = 3)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
## PhantomJS not found. You can install it with webshot::install_phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable.
デジタル入力タイプのコントロールの場合、最初の numericInput は数値を入力するものであるため、理解しやすいです。2番目と3番目は両方ともsliderInputですが、2番目はドラッグして数値を表示し、3番目はレートを表示します
ui <- fluidPage(
numericInput("num", "Number one", value = 0, min = 0, max = 100),
sliderInput("num2", "Number two", value = 50, min = 0, max = 100),
sliderInput("rng", "Range", value = c(10, 20), min = 0, max = 100)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
Date クラスの入力タグは関数 dateInput によって生成されます。
ui <- fluidPage(
dateInput("dob", "When were you born?"),
dateRangeInput("holiday", "When do you want to go on vacation next?")
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
選択した行のデータを入力することもできますが、最初にデータを選択するためのオプションをリストする必要があります。radioButtons は文字通りラジオ ボタンを意味します。selectInput() によって作成されるドロップダウン メニューは、オプションの数に関係なく同じスペースを占有するため、長いオプションに適しています。multiple = TRUE に設定すると、ユーザーは複数の要素を選択できるようになります。
ck <- c("列线图", "孟德尔随机化", "nhanes数据库", "时间序列分析", "其他")
ui <- fluidPage(
selectInput("state", "What's your favourite state?", state.name),
radioButtons("ck", "你喜欢公众号：零基础说科研哪些课程?", ck)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
ファイルアップロード制御
ui <- fluidPage(
fileInput("upload", NULL)
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
操作制御、クリックするとリンクに移動します
ui <- fluidPage(
actionButton("click", "Click me!"),
actionButton("drink", "Drink me!", icon = icon("cocktail"))
)
server <- function(input, output, session) {
}
shinyApp(ui, server)
この章ではコントロールのいくつかのレイアウトを簡単に紹介し、次の章ではコントロールがどのように出力されるかを紹介します。