inst/hidap/app.R
In c5sire/hidap2: Highly Interactive Data Analysis Platform for Plant breeding
library(d3heatmap)
library(shinysky)
library(data.table)
library(shinyTree)
library(shinyFiles)
library(doBy)
library(tidyr)
library(DT)
library(brapi)
library(brapps)
library(agricolae)
library(dplyr)
library(openxlsx)
library(fbmet)
library(fbhelp)
library(fbdesign)
library(rhandsontable)
library(shinydashboard)
library(date)
library(purrr)
library(shinyURL)
library(qtlcharts)
library(leaflet)
library(withr)
library(dplyr)
library(st4gi)
library(tibble)
library(knitr)
library(readxl)
library(countrycode)
library(fbsites)
library(fbmlist)
library(fbmet)
library(fbcheck)
library(fbmlist)
library(countrycode)
library(shinyjs)
library(DBI)
library(RMySQL)
library(spsurvey)
library(foreign)
library(tools)
library(stringr)
library(shinyBS)
library(fbdesign)
library(fbopenbooks)
library(fbanalysis)
library(traittools)
library(sbformula)
library(pepa)
library(shinyFiles)
library(rlist)
library(rprojroot)
library(factoextra)
library(ggrepel)
library(fbdocs)
is_server <- function() {
return( !Sys.info()["sysname"] %in%
c("Windows"
,
"Darwin"
))
}
if (!is_server()) {
library(doBy)
library(openxlsx)
library(fbdesign)
library(date)
library(purrr)
#library(shinyURL)
#library(qtlcharts)
#library(leaflet)
#library(dplyr)
library(readxl)
library(countrycode)
library(fbsites)
library(fbmlist)
library(fbcheck)
library(countrycode)
library(DBI)
library(RMySQL)
library(spsurvey)
library(foreign)
library(fbdesign)
library(fbopenbooks)
library(fbanalysis)
library(rlist)
library(rprojroot)
library(factoextra)
library(fbdocs)
}
menu_material_management <- function() {
if (is_server()) return("")
menuItem("Material Management",
menuSubItem("Manage list", tabName = "manageList", icon = icon("table")),
menuSubItem("Clone list", tabName = "generateList", icon = icon("list")),
menuSubItem("Family list", tabName = "createList", icon = icon("list-alt"))#,
)
}
menu_fieldbook_management <- function() {
if (is_server()) return("")
menuItem("Fieldbook management",
menuSubItem("New fieldbook", tabName = "newFieldbook", icon = icon("file")),
menuSubItem("Open fieldbook", tabName = "openFieldbook", icon = icon("file-o")),
menuSubItem("Check fieldbook", tabName = "checkFieldbook", icon = icon("eraser"))#,
)
}
menuSub_data_transformation <- function() {
if (is_server()) return("")
menuSubItem("Data Transformation", tabName = "singleAnalysisTrans", icon = icon("file-text-o"))
}
menu_geographic_information <- function() {
if (is_server()) return("")
menuItem("Geographic Information", icon = icon("globe"),
menuSubItem("Add trial sites",tabName = "trialSites", icon = icon("location-arrow")),
menuSubItem("Locations table",tabName = "trialSitesTable",icon = icon("file-text-o"))
)
}
menu_documentation <- function() {
if (is_server()) return("")
menuItem("Documentation", icon = icon("book"),
menuSubItem("HIDAP documents", tabName = "docHidap",icon = icon("file-text-o"))#,
)
}
menu_pvs_trial <- function() {
if (is_server()) return("")
menuItem("PVS Trial Analysis",
menuSubItem("PVS report", tabName = "singlePVS", icon = icon("calculator"))#,
#menuSubItem("PVS anova report",tabName = "singlePVS", icon = icon("calculator"))
)
}
only_offline <- function() {
# Design Experiments Module ----------------------------------------------------
if(is_server()) {
return(tagList(
fbdesign::ui_fieldbook(name = "newFieldbook"),
# Data Quality and Check Fieldbook Module ----------------------------------------------------
fbcheck::fbcheck_ui(name= "checkFieldbook"),
# Fieldbook Manager Module ----------------------------------------------------
fbopenbooks::fbopenbooks_ui(name="openFieldbook"),
# Material List Module ----------------------------------------------------
fbmlist::generate_ui(name = "generateList"),
fbmlist::managerlist_ui(name = "manageList"),
fbmlist::createlist_ui(name = "createList"),
fbsites::addsite_ui(name = "trialSites"),
fbsites::ui_site(name ="trialSitesTable"),
fbdocs::fbdocs_ui(name = "docHidap")
)
)
} else {
return(shiny::div())
}
}
ui <- dashboardPage(
skin = "yellow",
dashboardHeader(title = "HIDAP", titleWidth = "250px"
),#end Header
dashboardSidebar(width = "250px",
#div(style="margin-right: auto;",img(src = "Logo1.png", width = "250")),
br(),
div(img(src="hidapicon.png", width = "150px"), style="text-align: center;"),
#sidebarSearchForm(label = "Enter a word", "searchText", "searchButton"),
sidebarMenu(
id = "tabs",
# menuItem("Phenotype tool", icon = icon("th-list"),
menuItem("Phenotype", icon = icon("th-list"),
menu_material_management(),
menu_fieldbook_management(),
menuItem("Single Trial Analysis",
menuSubItem("Single trial graph",tabName = "SingleChart", icon = icon("calculator")),
menuSubItem("Single report", tabName = "singleAnalysisReport", icon = icon("file-text-o")),
menuSub_data_transformation()
),
menu_pvs_trial(),
menuItem("MET Trial Analysis",
menuSubItem("MET analytical graph",tabName = "metAnalysisGraphs", icon = icon("calculator")),
menuSubItem("MET report", tabName = "metAnalysisReport",icon = icon("file-text-o"))#,
),
menuItem("Index Selection",
menuSubItem("Elston index",tabName = "elstonIndex",icon = icon("file-text-o")),
#menuSubItem("Pesek-Baker index", tabName = "pesekIndex",icon = icon("indent")),
menuSubItem("Selection response", tabName = "selResponse",icon = icon("indent"))
)#,
),
menu_geographic_information(),
menu_documentation(),
menuItem("About", tabName = "dashboard", icon = icon("dashboard"), selected = TRUE)#,
# ------------------------------------------------------------------------
)
# )
),
dashboardBody(
#
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.min.css")
),
includeCSS("www/custom.css"),
tabItems(
hidap::about(),
###
#Codigo Ivan Perez
tabItem(tabName = "dashboard",
#br(h2("Highly Interactive Data Analysis Platform")),
br( p(class = "text-muted", style="text-align:right", "Highly Interactive Data Analysis Platform")),
# br(),
# br(),
#img(src="potato.jpg", width = "100%"),-
img(src="about.jpg", width = "100%"),
br(),
br(),
h3("HIDAP Preview [20/09/2016]"),
p(class = "text-muted", style="text-align:justify",
#paste("HiDAP is a Highly Interactive Data Analysis Platform originally meant to support clonal crop breeders at the <a href='http://www.cipotato.org' target='_new'>International Potato Center</a>. It is part of a continuous institutional effort to improve data collection, data quality, data analysis and open access publication. The recent iteration simultaneously also represents efforts to unify best practices from experiences in breeding data management of over 10 years, specifically with DataCollector and CloneSelector for potato and sweetpotato breeding, to address new demands for open access publishing and continue to improve integration with both corporate and community databases (such as biomart and sweetpotatobase) and platforms such as the <a href='https://research.cip.cgiar.org/gtdms/' target='_new'> Global Trial Data Management System (GTDMS)</a> at CIP. </br> One of the main new characteristics of the current software development platform established over the last two years is the web-based interface which provides also a highly interactive environment. It could be used both online and offline and on desktop as well as tablets and laptops. Key features include support for data capture, creation of field books, upload field books from and to accudatalogger, data access from breeding databases (e.g., <a href = 'http://germplasmdb.cip.cgiar.org/' target='_new'>CIP BioMart</a>, <a href='http://www.sweetpotatobase.org' target='_new'>sweetpotatobase</a> via <a href='http://docs.brapi.apiary.io/' target='_new'>breeding API</a>), data quality checks, single and multi-environmental data analysis, selection indices, and report generations. For users of DataCollector or CloneSelector many of the features are known but have been improved upon. Novel features include list management of breeding families, connection with the institutional pedigree database, interactive and linked graphs as well as reproducible reports. With the first full release by end of November 2016 we will include all characteristics from both DataCollector and CloneSelector. HIDAP, with additional support from <a href='https://sweetpotatogenomics.cals.ncsu.edu/' target='_new'>GT4SP</a>, <a href='http://www.rtb.cgiar.org/' target='_new'>RTB</a>, USAID, and <a href='http://cipotato.org/research/partnerships-and-special-projects/sasha-program/' target='_new'>SASHA</a>, is aimed to support the broader research community working on all aspects with primary focus on breeding, genetics, biotechnology, physiology and agronomy.")
shiny::includeHTML("www/about_hidap.txt")
),
br(),
br(),
fluidRow(
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="CIPlogo_RGB.png", width = "150px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
div(img(src="gt4sp.png", height = "108px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="usaid.png", width = "150px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
div(img(src="sasha.png"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="rtb.png", width = "150px"), style="text-align: center;")
)
),
br(),
br(),
br()
),
tabItem(tabName = "integration",
fluidRow(
box(
title = "CIPFBS report", width = 12, status = "primary", solidHeader = TRUE, collapsible = TRUE,
tags$iframe(src = "http://176.34.251.32/cipfieldbookstorage_dev/protected/extensions/grid/demo.php",
seamless=NA, width = "100%", height = "800px"
)
)
),
br(),
br(),
br()
),
#Fin codigo Ivan Perez
###
#only_offline(),
fbdesign::ui_fieldbook(name = "newFieldbook"),
# Data Quality and Check Fieldbook Module ----------------------------------------------------
fbcheck::fbcheck_ui(name= "checkFieldbook"),
# Fieldbook Manager Module ----------------------------------------------------
fbopenbooks::fbopenbooks_ui(name="openFieldbook"),
# Material List Module ----------------------------------------------------
fbmlist::generate_ui(name = "generateList"),
fbmlist::managerlist_ui(name = "manageList"),
fbmlist::createlist_ui(name = "createList"),
fbsites::addsite_ui(name = "trialSites"),
fbsites::ui_site(name ="trialSitesTable"),
fbdocs::fbdocs_ui(name = "docHidap"),
brapps::fbasingle_ui("SingleChart"),
fbanalysis::single_ui(name="singleAnalysisReport"),
fbanalysis::dtr_ui(name = "singleAnalysisTrans"),
fbanalysis::met_ui(name="metAnalysisReport"),
fbmet::fbmet_ui("metAnalysisGraphs"),
fbanalysis::elston_ui(name="elstonIndex"),
fbanalysis::ui_pvs(name = "singlePVS"),
brapps::rts_ui("selResponse"),
tabItem(tabName = "analysis",
h2("Analysis"),
p(class = "text-muted",
paste("Under construction...")
)
)
) , #end of TabSetPanel
tags$div(
fluidRow(
tags$footer(
a(
list(
tags$div(id = "test", img(src="cc_by.png"), "2016 International Potato Center. Av La Molina 1895, La Molina - Peru.")
),
href="#"
),
tags$style("footer {background-color: #222d32;height: 40px;position: absolute;bottom: 0;width: 100%;}"),
tags$style("#test {color: #fff;padding-top: 5px;}")
)
)
)
)
)
############################################################
sv <- function(input, output, session) ({
values <- shiny::reactiveValues(crop = "sweetpotato", amode = "brapi")
#
#
# try({
# brapi_con("sweetpotato", "sgn:eggplant@sweetpotatobase-test.sgn.cornell.edu",
# 80, "rsimon16",
# "sweetpotato")
# })
#shinyURL.server()
fbcheck::fbcheck_server(input, output, session, values)
fbmlist::server_managerlist(input, output, session, values)
fbmlist::server_generate(input, output, session, values)
fbmlist::server_createlist(input, output, session, values)
fbdesign::server_design(input, output, session, values)
fbdesign::server_design_big(input, output, session, values)
fbopenbooks::fbopenbooks_server(input, output, session, values)
fbanalysis::single_server(input, output, session, values)
fbanalysis::dtr_server(input, output, session, values)
fbanalysis::met_server(input, output, session, values)
fbanalysis::elston_server(input, output, session, values)
fbanalysis::pbaker_server(input, output, session, values)
fbanalysis::pvs_server(input, output, session, values)
fbanalysis::pvs_anova_server(input, output, session, values)
fbdocs::fbdocs_server(input, output, session, values)
fbsites::server_addsite(input, output, session, values = values)
fbsites::server_site(input, output, session, values = values)
brapps::fieldbook_analysis(input, output, session, values)
#brapps::locations(input, output, session, values)
fbmet::fbmet_sv(input, output, session, values)
brapps::rts_sv(input, output, session, values)
# drat::addRepo("c5sire")
# res = eventReactive(input$about_update, {
# cat("Ok")
# if(brapi::can_internet()){
# withProgress({
# try({
# update.packages(ask = FALSE)
# })
# }, message = "Checking for updates ...")
# }
# })
#
#
# })
})
shinyApp(ui, sv)
c5sire/hidap2 documentation built on May 13, 2019, 10:35 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
library(d3heatmap)
library(shinysky)
library(data.table)
library(shinyTree)
library(shinyFiles)
library(doBy)
library(tidyr)
library(DT)
library(brapi)
library(brapps)
library(agricolae)
library(dplyr)
library(openxlsx)
library(fbmet)
library(fbhelp)
library(fbdesign)
library(rhandsontable)
library(shinydashboard)
library(date)
library(purrr)
library(shinyURL)
library(qtlcharts)
library(leaflet)
library(withr)
library(dplyr)
library(st4gi)
library(tibble)
library(knitr)
library(readxl)
library(countrycode)
library(fbsites)
library(fbmlist)
library(fbmet)
library(fbcheck)
library(fbmlist)
library(countrycode)
library(shinyjs)
library(DBI)
library(RMySQL)
library(spsurvey)
library(foreign)
library(tools)
library(stringr)
library(shinyBS)
library(fbdesign)
library(fbopenbooks)
library(fbanalysis)
library(traittools)
library(sbformula)
library(pepa)
library(shinyFiles)
library(rlist)
library(rprojroot)
library(factoextra)
library(ggrepel)
library(fbdocs)
is_server <- function() {
return( !Sys.info()["sysname"] %in%
c("Windows"
,
"Darwin"
))
}
if (!is_server()) {
library(doBy)
library(openxlsx)
library(fbdesign)
library(date)
library(purrr)
#library(shinyURL)
#library(qtlcharts)
#library(leaflet)
#library(dplyr)
library(readxl)
library(countrycode)
library(fbsites)
library(fbmlist)
library(fbcheck)
library(countrycode)
library(DBI)
library(RMySQL)
library(spsurvey)
library(foreign)
library(fbdesign)
library(fbopenbooks)
library(fbanalysis)
library(rlist)
library(rprojroot)
library(factoextra)
library(fbdocs)
}
menu_material_management <- function() {
if (is_server()) return("")
menuItem("Material Management",
menuSubItem("Manage list", tabName = "manageList", icon = icon("table")),
menuSubItem("Clone list", tabName = "generateList", icon = icon("list")),
menuSubItem("Family list", tabName = "createList", icon = icon("list-alt"))#,
)
}
menu_fieldbook_management <- function() {
if (is_server()) return("")
menuItem("Fieldbook management",
menuSubItem("New fieldbook", tabName = "newFieldbook", icon = icon("file")),
menuSubItem("Open fieldbook", tabName = "openFieldbook", icon = icon("file-o")),
menuSubItem("Check fieldbook", tabName = "checkFieldbook", icon = icon("eraser"))#,
)
}
menuSub_data_transformation <- function() {
if (is_server()) return("")
menuSubItem("Data Transformation", tabName = "singleAnalysisTrans", icon = icon("file-text-o"))
}
menu_geographic_information <- function() {
if (is_server()) return("")
menuItem("Geographic Information", icon = icon("globe"),
menuSubItem("Add trial sites",tabName = "trialSites", icon = icon("location-arrow")),
menuSubItem("Locations table",tabName = "trialSitesTable",icon = icon("file-text-o"))
)
}
menu_documentation <- function() {
if (is_server()) return("")
menuItem("Documentation", icon = icon("book"),
menuSubItem("HIDAP documents", tabName = "docHidap",icon = icon("file-text-o"))#,
)
}
menu_pvs_trial <- function() {
if (is_server()) return("")
menuItem("PVS Trial Analysis",
menuSubItem("PVS report", tabName = "singlePVS", icon = icon("calculator"))#,
#menuSubItem("PVS anova report",tabName = "singlePVS", icon = icon("calculator"))
)
}
only_offline <- function() {
# Design Experiments Module ----------------------------------------------------
if(is_server()) {
return(tagList(
fbdesign::ui_fieldbook(name = "newFieldbook"),
# Data Quality and Check Fieldbook Module ----------------------------------------------------
fbcheck::fbcheck_ui(name= "checkFieldbook"),
# Fieldbook Manager Module ----------------------------------------------------
fbopenbooks::fbopenbooks_ui(name="openFieldbook"),
# Material List Module ----------------------------------------------------
fbmlist::generate_ui(name = "generateList"),
fbmlist::managerlist_ui(name = "manageList"),
fbmlist::createlist_ui(name = "createList"),
fbsites::addsite_ui(name = "trialSites"),
fbsites::ui_site(name ="trialSitesTable"),
fbdocs::fbdocs_ui(name = "docHidap")
)
)
} else {
return(shiny::div())
}
}
ui <- dashboardPage(
skin = "yellow",
dashboardHeader(title = "HIDAP", titleWidth = "250px"
),#end Header
dashboardSidebar(width = "250px",
#div(style="margin-right: auto;",img(src = "Logo1.png", width = "250")),
br(),
div(img(src="hidapicon.png", width = "150px"), style="text-align: center;"),
#sidebarSearchForm(label = "Enter a word", "searchText", "searchButton"),
sidebarMenu(
id = "tabs",
# menuItem("Phenotype tool", icon = icon("th-list"),
menuItem("Phenotype", icon = icon("th-list"),
menu_material_management(),
menu_fieldbook_management(),
menuItem("Single Trial Analysis",
menuSubItem("Single trial graph",tabName = "SingleChart", icon = icon("calculator")),
menuSubItem("Single report", tabName = "singleAnalysisReport", icon = icon("file-text-o")),
menuSub_data_transformation()
),
menu_pvs_trial(),
menuItem("MET Trial Analysis",
menuSubItem("MET analytical graph",tabName = "metAnalysisGraphs", icon = icon("calculator")),
menuSubItem("MET report", tabName = "metAnalysisReport",icon = icon("file-text-o"))#,
),
menuItem("Index Selection",
menuSubItem("Elston index",tabName = "elstonIndex",icon = icon("file-text-o")),
#menuSubItem("Pesek-Baker index", tabName = "pesekIndex",icon = icon("indent")),
menuSubItem("Selection response", tabName = "selResponse",icon = icon("indent"))
)#,
),
menu_geographic_information(),
menu_documentation(),
menuItem("About", tabName = "dashboard", icon = icon("dashboard"), selected = TRUE)#,
# ------------------------------------------------------------------------
)
# )
),
dashboardBody(
#
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "bootstrap.min.css")
),
includeCSS("www/custom.css"),
tabItems(
hidap::about(),
###
#Codigo Ivan Perez
tabItem(tabName = "dashboard",
#br(h2("Highly Interactive Data Analysis Platform")),
br( p(class = "text-muted", style="text-align:right", "Highly Interactive Data Analysis Platform")),
# br(),
# br(),
#img(src="potato.jpg", width = "100%"),-
img(src="about.jpg", width = "100%"),
br(),
br(),
h3("HIDAP Preview [20/09/2016]"),
p(class = "text-muted", style="text-align:justify",
#paste("HiDAP is a Highly Interactive Data Analysis Platform originally meant to support clonal crop breeders at the <a href='http://www.cipotato.org' target='_new'>International Potato Center</a>. It is part of a continuous institutional effort to improve data collection, data quality, data analysis and open access publication. The recent iteration simultaneously also represents efforts to unify best practices from experiences in breeding data management of over 10 years, specifically with DataCollector and CloneSelector for potato and sweetpotato breeding, to address new demands for open access publishing and continue to improve integration with both corporate and community databases (such as biomart and sweetpotatobase) and platforms such as the <a href='https://research.cip.cgiar.org/gtdms/' target='_new'> Global Trial Data Management System (GTDMS)</a> at CIP. </br> One of the main new characteristics of the current software development platform established over the last two years is the web-based interface which provides also a highly interactive environment. It could be used both online and offline and on desktop as well as tablets and laptops. Key features include support for data capture, creation of field books, upload field books from and to accudatalogger, data access from breeding databases (e.g., <a href = 'http://germplasmdb.cip.cgiar.org/' target='_new'>CIP BioMart</a>, <a href='http://www.sweetpotatobase.org' target='_new'>sweetpotatobase</a> via <a href='http://docs.brapi.apiary.io/' target='_new'>breeding API</a>), data quality checks, single and multi-environmental data analysis, selection indices, and report generations. For users of DataCollector or CloneSelector many of the features are known but have been improved upon. Novel features include list management of breeding families, connection with the institutional pedigree database, interactive and linked graphs as well as reproducible reports. With the first full release by end of November 2016 we will include all characteristics from both DataCollector and CloneSelector. HIDAP, with additional support from <a href='https://sweetpotatogenomics.cals.ncsu.edu/' target='_new'>GT4SP</a>, <a href='http://www.rtb.cgiar.org/' target='_new'>RTB</a>, USAID, and <a href='http://cipotato.org/research/partnerships-and-special-projects/sasha-program/' target='_new'>SASHA</a>, is aimed to support the broader research community working on all aspects with primary focus on breeding, genetics, biotechnology, physiology and agronomy.")
shiny::includeHTML("www/about_hidap.txt")
),
br(),
br(),
fluidRow(
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="CIPlogo_RGB.png", width = "150px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
div(img(src="gt4sp.png", height = "108px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="usaid.png", width = "150px"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
div(img(src="sasha.png"), style="text-align: center;")
),
box(
width = 2, style="background-color = #fff", height = "128px",
solidHeader = TRUE,
br(),
div(img(src="rtb.png", width = "150px"), style="text-align: center;")
)
),
br(),
br(),
br()
),
tabItem(tabName = "integration",
fluidRow(
box(
title = "CIPFBS report", width = 12, status = "primary", solidHeader = TRUE, collapsible = TRUE,
tags$iframe(src = "http://176.34.251.32/cipfieldbookstorage_dev/protected/extensions/grid/demo.php",
seamless=NA, width = "100%", height = "800px"
)
)
),
br(),
br(),
br()
),
#Fin codigo Ivan Perez
###
#only_offline(),
fbdesign::ui_fieldbook(name = "newFieldbook"),
# Data Quality and Check Fieldbook Module ----------------------------------------------------
fbcheck::fbcheck_ui(name= "checkFieldbook"),
# Fieldbook Manager Module ----------------------------------------------------
fbopenbooks::fbopenbooks_ui(name="openFieldbook"),
# Material List Module ----------------------------------------------------
fbmlist::generate_ui(name = "generateList"),
fbmlist::managerlist_ui(name = "manageList"),
fbmlist::createlist_ui(name = "createList"),
fbsites::addsite_ui(name = "trialSites"),
fbsites::ui_site(name ="trialSitesTable"),
fbdocs::fbdocs_ui(name = "docHidap"),
brapps::fbasingle_ui("SingleChart"),
fbanalysis::single_ui(name="singleAnalysisReport"),
fbanalysis::dtr_ui(name = "singleAnalysisTrans"),
fbanalysis::met_ui(name="metAnalysisReport"),
fbmet::fbmet_ui("metAnalysisGraphs"),
fbanalysis::elston_ui(name="elstonIndex"),
fbanalysis::ui_pvs(name = "singlePVS"),
brapps::rts_ui("selResponse"),
tabItem(tabName = "analysis",
h2("Analysis"),
p(class = "text-muted",
paste("Under construction...")
)
)
) , #end of TabSetPanel
tags$div(
fluidRow(
tags$footer(
a(
list(
tags$div(id = "test", img(src="cc_by.png"), "2016 International Potato Center. Av La Molina 1895, La Molina - Peru.")
),
href="#"
),
tags$style("footer {background-color: #222d32;height: 40px;position: absolute;bottom: 0;width: 100%;}"),
tags$style("#test {color: #fff;padding-top: 5px;}")
)
)
)
)
)
############################################################
sv <- function(input, output, session) ({
values <- shiny::reactiveValues(crop = "sweetpotato", amode = "brapi")
#
#
# try({
# brapi_con("sweetpotato", "sgn:eggplant@sweetpotatobase-test.sgn.cornell.edu",
# 80, "rsimon16",
# "sweetpotato")
# })
#shinyURL.server()
fbcheck::fbcheck_server(input, output, session, values)
fbmlist::server_managerlist(input, output, session, values)
fbmlist::server_generate(input, output, session, values)
fbmlist::server_createlist(input, output, session, values)
fbdesign::server_design(input, output, session, values)
fbdesign::server_design_big(input, output, session, values)
fbopenbooks::fbopenbooks_server(input, output, session, values)
fbanalysis::single_server(input, output, session, values)
fbanalysis::dtr_server(input, output, session, values)
fbanalysis::met_server(input, output, session, values)
fbanalysis::elston_server(input, output, session, values)
fbanalysis::pbaker_server(input, output, session, values)
fbanalysis::pvs_server(input, output, session, values)
fbanalysis::pvs_anova_server(input, output, session, values)
fbdocs::fbdocs_server(input, output, session, values)
fbsites::server_addsite(input, output, session, values = values)
fbsites::server_site(input, output, session, values = values)
brapps::fieldbook_analysis(input, output, session, values)
#brapps::locations(input, output, session, values)
fbmet::fbmet_sv(input, output, session, values)
brapps::rts_sv(input, output, session, values)
# drat::addRepo("c5sire")
# res = eventReactive(input$about_update, {
# cat("Ok")
# if(brapi::can_internet()){
# withProgress({
# try({
# update.packages(ask = FALSE)
# })
# }, message = "Checking for updates ...")
# }
# })
#
#
# })
})
shinyApp(ui, sv)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.