cecilialee

library(shiny)

ui <- fluidPage(

  h2("Highlight Input Example"),
  
  # sample text for selection
  p("The insured received an examination of the large intestine in 2014. 
    As a result, everything was normal and there was no need to go back 
    to the follow-up consultation and any examination and treatment."),

cecilialee

library(dplyr)
library(mongolite)

# MongoDB connection
m <- mongo("listcopro")

# Read raw data
file <- file("/Users/cecilialee/Dropbox/dropbox/freelance/listcopro/bitbucket/recruitment/test/data/resume_1.pdf", "rb")
data <- readBin(file, "raw", 9999999)

cecilialee

library(shiny)
members <- data.frame(name=c("Name 1", "Name 2"), nr=c('BCRA1','FITM2'))

ui <- fluidPage(titlePanel("Getting Iframe"), 
                sidebarLayout(
                  sidebarPanel(
                    fluidRow(
                      column(6, selectInput("Member", label=h5("Choose a option"),choices=c('BCRA1','FITM2'))
                      ))),
                  mainPanel(fluidRow(

cecilialee

defaults write com.apple.screencapture location /path/

cecilialee

library(dplyr)

search <- "color"
iris %>% 
  filter_all(any_vars(grepl(search, ., ignore.case = TRUE)))

cecilialee

library(shiny)
library(DT)

ui <- fluidPage(
  dataTableOutput("mtcars")
)

server <- function(input, output, session) {
  output$mtcars <- renderDataTable(
    datatable(mtcars, options = list(scrollX = TRUE))

cecilialee

library(shiny)
library(DT)
library(dplyr)

ui <- basicPage(
  tags$style(".glyphicon-ok-sign {color:#2b8ee5}
              .glyphicon-question-sign {color:#f4e107}
              .glyphicon-exclamation-sign {color:#e5413b}
              .glyphicon-flag, .glyphicon-trash {color:#28b728}"),
  DT::dataTableOutput("table")

cecilialee

library(shiny)
library(DT)
library(dplyr)

ui <- basicPage(
  DT::dataTableOutput("table")
)

server <- function(input, output, session) {
  output$table <- DT::renderDataTable({

cecilialee

library(shiny)
library(shinyjs)
source("module.R")

# UI ==========================================================================
ui <- fluidPage(
  useShinyjs(),
  radioButtons("mode", "Mode",
               choices = c("Entry" = "entry",
                           "Validation" = "validation"),

cecilialee

df <- replace(df, df == "NA", NA)