इनपुट के प्रकार

shinydashboard के साथ डैशबोर्ड बनाना

Png Kee Seng

Researcher

इनपुट फंक्शन

UI में, यूज़र इनपुट दे सकते हैं
- ये वेटर को दिए निर्देश जैसे होते हैं
shinyApp में, निर्देश server के ज़रिए पहुँचते हैं
इसके लिए UI में इनपुट फंक्शन जोड़े जाते हैं
<type>input(<identifying label>, <displayed label>, ...)
- पहला आर्ग्युमेंट पहचान के लिए लेबल है
- दूसरा आर्ग्युमेंट दिखाया जाने वाला लेबल है
- बाकी आर्ग्युमेंट उस इनपुट टाइप पर निर्भर होते हैं

उदाहरण: स्लीप स्टडी

मान लीजिए हमने एक स्लीप स्टडी की और डेटा इकट्ठा किया
shinyApp यूज़र कौन से इनपुट दे सकते हैं?

स्लीप स्टडी का ग्राफिक

¹ Image by storyset on Freepik

selectInput

एक आम इनपुट selectInput() है
यह कई विकल्पों वाला ड्रॉप-डाउन मेन्यू बनाता है
तीसरा आर्ग्युमेंट संभावित विकल्पों का वेक्टर है
इस उदाहरण में चार विकल्प हैं।
अभी के लिए server खाली रखें
shinyApp() चलाकर shinyApp रेंडर करें

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
    selectInput("selectlabel", 
                "Select an option",

                choices = c("Option 1", "Option 2", 
                            "Option 3", "Option 4"))

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

shinyApp(ui, server)

selectInput

एकल चयन वाला selectInput.

एकाधिक चयन वाला selectInput

हम multiple नाम का एक और आर्ग्युमेंट भी जोड़ सकते हैं

ui <- fluidPage(
titlePanel("Sleeping habits in America"), 
  selectInput("selectlabel", 
              "Select an option",
              choices = c("Option 1", "Option 2", "Option 3", "Option 4"),
              multiple = TRUE))
server <- function(input, output, session) {
}
shinyApp(ui, server)

एकाधिक चयन वाला selectInput

textInput

दो और महत्वपूर्ण आर्ग्युमेंट हैं
- value: textbox में पहले से भरी हुई वैल्यू
- placeholder: textbox में क्या भरना है, उसका संकेत

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  textInput("textlabel", 
            "Tell me your name", 

            value = "Birdie",

            placeholder = "Don"))

server <- function(input, output, session) {
}
shinyApp(ui, server)

textInput

textInput डेमो

checkboxInput

यह ऐप में एक सिंगल checkbox देता है
value: TRUE या FALSE, जिससे checkbox की शुरुआती स्थिति सेट होती है
checkboxInput का एक वैरिएशन checkboxGroupInput भी है

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  checkboxInput("checkboxlabel",
                "65 years and over",

                value = FALSE))


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

shinyApp(ui, server)

checkboxInput

checkboxInput डेमो

sliderInput

यह एक स्लाइडर बनाता है, जिससे यूज़र दो में से एक काम कर सकते हैं
- नंबरों की रेंज से एक मान चुनें
- नंबरों की रेंज से दो मान चुनें
सिंगल मान के लिए min और max सेट करें
शुरुआती मान value तय करता है
स्टेप साइज step तय करता है

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  sliderInput("sliderlabel",
              "Average hours of sleep",

              min = 7.5,
              max = 11,

              value = 9,

              step = 0.02))

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

shinyApp(ui, server)

sliderInput

sliderInput डेमो। यूज़र केवल एक मान चुन सकता है.

रेंज वाला sliderInput

अगर value लंबाई 2 के वेक्टर के रूप में सेट हो, तो स्लाइडर दो-सिरा बन जाता है

ui <- fluidPage(
  titlePanel("Sleeping habits in America"), 
  sliderInput("sliderlabel",
              "Average hours of sleep",
              min = 7.5,
              max = 11,

              value = c(8, 10),

              step = 0.02))
server <- function(input, output, session) {
}

shinyApp(ui, server)

रेंज वाला sliderInput

रेंज वाला स्लाइडर

अभ्यास करते हैं!

shinydashboard के साथ डैशबोर्ड बनाना