में चमकदार

Question

मैं अपने चमकदार अर्थात के शीर्ष कि अच्छा लग रहा है पर एक अच्छा wellpanel एक wellpanel की ऊंचाई फेरबदल:

... लेकिन मैं सभी अतिरिक्त ग्रे अंतरिक्ष में नाराज हो रही है वास्तविक नियंत्रण के ऊपर और नीचे! मैं इस अनावश्यक जगह को हटाना चाहता हूं। मेरी पंक्ति यह होने की तुलना में 50% लंबा है, और मुझे यकीन नहीं है कि चमकदार ने इसे कैसे आकार दिया।

क्या कोई भी जिसके पास सीएसएस/एचटीएमएल/चमक में कौशल है, उसे संशोधित करने के तरीके के बारे में सही दिशा में मुझे इंगित करने में सक्षम होना चाहिए? मेरे प्रयास अब तक असफल रहे हैं।

shinyUI(fluidPage(


    fluidRow( 
    column(12, 
      wellPanel(    
      tags$div(class = "row", 
         tags$div(class = "span"), 
         tags$div(class = "span1", h1(numericInput(inputId="num", label="ID", value=NaN))), 
         tags$div(class = "span2", h1(sliderInput(inputId="age", "Age Range", min=32, max=99, value=c(32, 99), step=1))), 
         tags$div(class = "span1", h1(radioButtons(inputId="gender", "Gender", c("combined" = 0, "male" = 1, "female" = 2), inline=FALSE))), 
         tags$div(class = "span1", h1(textOutput("text"))) 
      ) 
      ))), 



    fluidRow( 


    column(4, 
      plotOutput("some_plot_not_shown")) 

))) 

यहां तक ​​पढ़ने के लिए धन्यवाद:

यहाँ नीचे दिए गए कोड है।

Answer 1

आप गद्दी को बदल सकते हैं:

library(shiny) 
runApp(
    list(ui = fluidPage(   
    wellPanel(    
    tags$div(class = "row", 
      tags$div(class = "span"), 
      tags$div(class = "span1", h1(numericInput(inputId="num", label="ID", value=NaN))), 
      tags$div(class = "span2", h1(sliderInput(inputId="age", "Age Range", min=32, max=99, value=c(32, 99), step=1))), 
      tags$div(class = "span1", h1(radioButtons(inputId="gender", "Gender", c("combined" = 0, "male" = 1, "female" = 2), inline=FALSE))), 
      tags$div(class = "span1", h1(textOutput("text"))) 
    ) 
    , style = "padding: 5px;") 
    , wellPanel(    
    tags$div(class = "row", 
      tags$div(class = "span"), 
      tags$div(class = "span1", h1(numericInput(inputId="num1", label="ID", value=NaN))), 
      tags$div(class = "span2", h1(sliderInput(inputId="age1", "Age Range", min=32, max=99, value=c(32, 99), step=1))), 
      tags$div(class = "span1", h1(radioButtons(inputId="gender1", "Gender", c("combined" = 0, "male" = 1, "female" = 2), inline=FALSE))), 
      tags$div(class = "span1", h1(textOutput("text1"))) 
    ) 
    , style = "padding: 45px;") 
) 
     , server = function(input, output, session){ 

     } 
     ) 
) 

Answer 2

मुझे लगता है कि आप जब columns जोड़ने spans उपयोग करने के लिए कोशिश कर रहे हैं वास्तव में आप क्या कर रहे हैं के बाद - इस प्रयास करें:

shinyUI(fluidPage(
    fluidRow(
    column(12, 
     fluidRow(
     wellPanel(
      fluidRow(
      column(3, h1(numericInput(inputId="num", label="ID", value=NaN))), 
      column(3, h1(sliderInput(inputId="age", "Age Range", min=32, max=99, value=c(32, 99), step=1))), 
      column(3, h1(radioButtons(inputId="gender", "Gender", c("combined" = 0, "male" = 1, "female" = 2), inline=FALSE))), 
      column(3, h1(textOutput("text"))) 
     ) 
     ) # End wellPanel 
    ) 
    ) 
), 
    fluidRow(
    column(4, plotOutput("some_plot_not_shown")) 
) 
))