Journal/ui.R at master · lcpmgh/Journal · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
# Visualization of Journal information

##########===== ui =====##########
# load packages
library(DT)
library(shiny)
library(stringr)
library(magrittr)
library(data.table)
library(shinyWidgets)
library(showtext)

ui <- fluidPage(
  tags$head(tags$title("Journal")),
  tags$head(tags$link(rel = "shortcut icon", href = "journal.ico")),
  titlePanel("学术期刊质量查询系统"),
  tabsetPanel(id = "mainPanel",
              type = "pills",
              tabPanel(title = "英文LetPub版",
                       sidebarLayout(
                         sidebarPanel(width=3, uiOutput("ui_sidebar1")),
                         mainPanel(uiOutput("ui_main1"))
                       )),
              tabPanel(title = "英文JCR版",
                       sidebarLayout(
                         sidebarPanel(width = 3, uiOutput("ui_sidebar2")),
                         mainPanel(uiOutput("ui_main2"))
                       )),
              tabPanel(title = "中文CNKI版",
                       sidebarLayout(
                         sidebarPanel(width = 3, uiOutput("ui_sidebar3")),
                         mainPanel(uiOutput("ui_main3"))
                       )),
              tabPanel(title = "已选项目",
                       uiOutput("ui_main_selected")
                       )),

  # h3("期刊信息查询系统",align="center"),
  # tags$hr(),
  # sidebarLayout(
  #   sidebarPanel(width=3, uiOutput("ui_sidebar")),
  #   mainPanel(uiOutput("ui_main"))
  # ),
  tags$hr(),
  tags$div(align = "center", style = "margin-bottom: 10px;",
           tags$p("\ua9 2021-2026, Lcpmgh, All rights reserved.", style="height:8px"),
           tags$div(align = "center",
                    actionLink(inputId = "", label = "lcpmgh ", icon = icon("github"), onclick ="window.open('https://github.com/lcpmgh')"),
                    tags$p("  ", style = "display:inline;white-space:pre"),
                    actionLink(inputId = "", label = "lcpmgh@gmail.com", icon = icon("envelope"), onclick ="window.location.href='mailto:lcpmgh@gmail.com'"),
                    tags$p("  ", style = "display:inline;white-space:pre"),
                    actionLink(inputId = "", label = "lcpmgh.com", icon = icon("home"), onclick ="window.location.href='http://lcpmgh.com/'")
           ),
           tags$div(align = "center",
                    tags$a("冀ICP备2022003075号", target="_blank", href="https://beian.miit.gov.cn", style="color:#06c; display:inline;"),
                    tags$p("  ", style = "display:inline;white-space:pre"),
                    # tags$img(src="gaba.png"),
                    tags$a("川公网安备51010702002736", target="_blank", href="http://www.beian.gov.cn/portal/registerSystemInfo?recordcode=51010702002736", style="color:#06c; display:inline;")
           )
  )
)