byzheng

library(leaflet.extras)
lat <- c(1, 2, 2, 1)
lng <- c(1, 1, 2, 2)


library(shiny)
library(leaflet)

ui <- fluidPage(
    leafletOutput("mymap"),

byzheng

library(leaflet)
library(shiny)

ui <- fluidPage(
  leafletOutput('map'),
  verbatimTextOutput('summary')
)

server <- function(input, output, session) {

byzheng

library(shiny)
library(shinydashboard)
library(leaflet)

header <- dashboardHeader(
    title = "Example",
    titleWidth = "600px"
)

sidebar <- dashboardSidebar(width = "600px")

byzheng

library(leaflet)
library(shiny)
library(shinydashboard)


# header board
header <- dashboardHeader(
    title = 'Pheno-Copter'
    # task list for status of data processing
    , dropdownMenuOutput('task_menu'))

byzheng

library(shiny)
library(leaflet)
library(RColorBrewer)
ns_map <- function(id) {
    ns <- NS(id)
    tagList(
    leafletOutput(ns("map"), width = "100%", height = "100%"),
    absolutePanel(top = 10, right = 10,
                  sliderInput(ns("range"), "Magnitudes", min(quakes$mag), max(quakes$mag),
                              value = range(quakes$mag), step = 0.1

byzheng

library(shiny)
library(shinydashboard)
# header board
header <- dashboardHeader(
    title = 'Pheno-Copter'
    # task list for status of data processing
    , dropdownMenuOutput('task_menu'))

# Side bar board
sidebar <- dashboardSidebar(

byzheng

library(shiny)

shinyServer( function(input, output, session) {
    
    output$results <- renderPrint({
        input$mydata
    })
    
})

byzheng

#' Read xlsx files
#'
#' @param file The path to xlsx file
#' @param keep_sheets A vector of sheet name
#' @param header Whether include the head in the sheet
#' @param empty_row Whether to remove the empty rows
#' @export
xlsxToR <- function(file, keep_sheets = NULL, header = TRUE, empty_row = TRUE) 
{  
    suppressWarnings(file.remove(tempdir()))