temp/ui.R

In tsamsonov/rosstat:

shinyUI(fluidPage(
  titlePanel("Построение карт по данным Росстата"),

  sidebarLayout(
    sidebarPanel(
      # tags$head(tags$style("#myplot{height:100vh !important;}")),
      fileInput("docx", label = "Файл"),
      shinyTree("tree", checkbox = FALSE),
      selectInput("oxvat1",
                  label = "Пространственный охват",
                  choices = oxvat1_c_eng
      ),
      
      conditionalPanel(
        condition = "input.oxvat1 == 'FO'",
        selectInput("oxvat2",
                    label = "Федеральный округ",
                    choices = oxvat2_c_eng
        )
      ),
      
      conditionalPanel(
        condition = "input.oxvat1 == 'ER'",
        selectInput("oxvat3",
                    label = "Экономический район",
                    choices = oxvat3_c_eng
        )
      ),
      selectInput("project",
                  label = "Проекция",
                  choices = project_c_eng
      ),
      selectInput("method",
                  label = "Метод классификации",
                  choices = method_c_eng
      ),
      selectInput("colclass",
                  label = "Количество классов",
                  choices = c(3,4,5,6,7,8)),
      
      selectInput("style",
                  label = "Способ изображения",
                  choices = style_c_eng),
      
      conditionalPanel( 
        condition = "input.style == 'contour'",
        numericInput("cellsize", label = "Размер ячейки", 10, min = "10", max = "100", step = "10") 
        
        
      ),
      selectInput("zvet",
                  label = "Цветовая шкала",
                  choices = zvet_c_eng,
                  selected = zvet_c_eng[2]
      ),
      
      actionButton("go", "Построить карту"),
      actionButton("go2", "Экспорт карты"),
      width = 4
    ),
    
    mainPanel(
      plotOutput("plot", height = "700", width = "100%")
      
     
    )
  ))
)
?pycno