plentz

# to generate your dhparam.pem file, run in the terminal
openssl dhparam -out /etc/nginx/ssl/dhparam.pem 2048

timmyshen

complete <- function(directory, id = 1:332) {
  ## 'directory' is a character vector of length 1 indicating
  ## the location of the CSV files
  
  ## 'id' is an integer vector indicating the monitor ID numbers
  ## to be used
  
  ## Return a data frame of the form:
  ## id nobs
  ## 1  117

xiaodaigh

library(shiny)



shinyServer(function(input, output, session) {
  
  # Partial example
  output$meh <- renderPrint({
    print("Press enter or focusout to update --- ")
    print(input$myTextInput )

rxaviers

People

:bowtie:	😄 :smile:	😆 :laughing:
😊 :blush:	😃 :smiley:	☺️ :relaxed:
😏 :smirk:	😍 :heart_eyes:	😘 :kissing_heart:
😚 :kissing_closed_eyes:	😳 :flushed:	😌 :relieved:
😆 :satisfied:	😁 :grin:	😉 :wink:
😜 :stuck_out_tongue_winking_eye:	😝 :stuck_out_tongue_closed_eyes:	😀 :grinning:
😗 :kissing:	😙 :kissing_smiling_eyes:	😛 :stuck_out_tongue:

steve-jansen

' Excel macro to export all VBA source code in this project to text files for proper source control versioning
' Requires enabling the Excel setting in Options/Trust Center/Trust Center Settings/Macro Settings/Trust access to the VBA project object model
Public Sub ExportVisualBasicCode()
    Const Module = 1
    Const ClassModule = 2
    Const Form = 3
    Const Document = 100
    Const Padding = 24
    
    Dim VBComponent As Object

mages

### R code from Computational Actuarial Science with R, Chapter 15
### Author: Markus Gesmann

options(prompt = "R> ", digits = 4, show.signif.stars = TRUE)
options(continue="   ")
library(ChainLadder)
library(lattice)
library(AER)
library(fitdistrplus)
lattice.options(default.theme = standard.theme(color = FALSE))

atifaziz

# Copyright (c) 2014 Atif Aziz. All rights reserved.
#
# Licensed under the Apache License, Version 2.0 (the "License");
# you may not use this file except in compliance with the License.
# You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,

adammck

CREATE SEQUENCE sync_id;

CREATE FUNCTION bump_sync_id() RETURNS trigger AS $$
begin
  NEW.sync_id := nextval('sync_id');
  RETURN NEW;
END;
$$ LANGUAGE PLPGSQL;

CREATE TABLE dogs (id SERIAL, name VARCHAR NOT NULL, sync_id INTEGER NOT NULL);

withr

library(shiny)
library(datasets)
Logged = FALSE;
PASSWORD <- data.frame(Brukernavn = "withr", Passord = "25d55ad283aa400af464c76d713c07ad")
# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output) {
  source("www/Login.R",  local = TRUE)
  
  observe({
    if (USER$Logged == TRUE) {

leeper

library('devtools')
library('utils')
library('httr')

update_github <-
function(ask = TRUE, ...){
  installed <- installed.packages()
  oldVersion <- installed[,'Version']
  urls <- sapply(names(oldVersion), function(x){
    d <- packageDescription(x)