cecilialee

library(shiny)

shinyApp(
  ui = basicPage(
    actionButton("show", "Show modal dialog"),
    verbatimTextOutput("print")
  ),
  
  server = function(input, output) {
    

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

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

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

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

cecilialee

library(plyr)

nested_list <- list(
  a = list(
    x = 1,
    y = 2
  ),
  b = list(
    x = 3,
    y = 4

cecilialee

library(shiny)

shinyApp(
  
  # ui ------------------------------------------------------------------------
  
  ui = basicPage(
    actionButton("skip", "Skip"),
    textOutput("status")
  ),

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)

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

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))