在闪亮的应用程序中显示强制名称和电子邮箱

Question

我一直在构建一个闪亮的应用程序，显示从网络收集的一些信息。

我正在使用shinydashboard来创建应用程序。

我希望有一个启动框，它是一个登录页面或一个名称和电子邮件输入框，任何想要使用该应用程序的人都需要在查看数据之前填写。

此外，我想收集这些数据，并在有人使用该应用时向googlesheet添加一行，并在其中加注，记录他们使用该应用进行的搜索。

我已经尝试了所有可用的教程，但似乎没有用。

这是UI：

Saturday and sunday

现在服务器：

 library(shiny)
library(dplyr)
library(RISmed)
library(ggplot2)
library(DT)
library(shinydashboard)

shinyUI(dashboardPage(skin = "blue",
                      dashboardHeader(
                      dashboardSidebar(dashboardSidebar(
                              sidebarMenu(
                                      menuItem("Homepage", tabName = "home", icon = icon("flask")),
                                      menuItem("Search Product", tabName = "product", icon = icon("info")),
                                      menuItem("Search Catalog", tabName = "catalog", icon = icon("map-pin")),
                                      menuItem("Support", tabName = "support", icon = icon("support"))))),
                   dashboardBody(

                           tabItems(
                                tabItem("home",
                                        fluidPage(##DETAILS

                   tabItem("product",
                            fluidPage(
                                    sidebarLayout(
                                            sidebarPanel(

                                                    textInput("name", "Protein name", value = "actin"),
                                                    selectInput("clonality", "Clonality", choices = c("Monoclonal", "Polyclonal")),

                                                    submitButton("Search")),
                                            mainPanel(
                                                      tabsetPanel(
                                                              tabPanel("Products", DT::dataTableOutput("table1")),
                                                              tabPanel("More Info", dataTableOutput("table2")),
                                                              tabPanel("Titles", tableOutput("table3")),
                                                              tabPanel("Authors", tableOutput("table4")),
                                                              tabPanel("Searches", plotOutput("plot")))
                                            )))),

                   tabItem("catalog",
                            fluidPage(
                                    sidebarLayout(
                                            sidebarPanel(
                                                    helpText("Search by Catalog Number"),
                                                    textInput("model", "Model Number"),
                                                    submitButton("Search")),
                                            mainPanel(
                                                    tabsetPanel(
                                                            tabPanel("Product", dataTableOutput("table5")),
                                                            tabPanel("More Info", dataTableOutput("table6"))

                                                    ))))),
                        tabItem("support",
                                   fluidRow(
                                           mainPanel(
                                                             tabsetPanel(
                                                                     tabPanel("Contacts", ##DETAILS                                                           
                                                                     tabPanel("Documents", ##DETAILS

                                                                              ))))

                   ))))

## DATA LOADING

library(shiny)
library(shiny)
library(dplyr)
library(RISmed)
library(ggplot2)
library(DT)

抱歉凌乱。这是一项正在进行的工作。

我现在有一个新问题，即df $ Model中的超链接来自链接之前的本地127.0.0.1，使其无法使用。

提前谢谢。