tjukanovt

import requests
import csv
import datetime
import calendar
import time
            
i=0
# Change the range depending on how long you like to record the data
for i in range (0,50):
    

nacnudus

# Rcpp NAs vs std::vector

library(Rcpp)
cppFunction("
List test1() {
  return List::create(
    NumericVector::create(NA_REAL),
    IntegerVector::create(NA_INTEGER),
    LogicalVector::create(NA_LOGICAL),
    CharacterVector::create(NA_STRING));

hrbrmstr

This is certainly not the intended purpose of mapedit, but I thought it would be fun to use some accumulated R knowledge to use mapedit and leaflet to edit an igraph layout. To run the code, make sure to run the edit_map and Shiny parts separately.

library(igraph)
library(leaflet)
library(mapedit)

karate <- graph.famous("Zachary")
igrf_layout <- layout.auto(karate)

jcheng5

library(shiny)

withConsoleRedirect <- function(containerId, expr) {
  # Change type="output" to type="message" to catch stderr
  # (messages, warnings, and errors) instead of stdout.
  txt <- capture.output(results <- expr, type = "output")
  if (length(txt) > 0) {
    insertUI(paste0("#", containerId), where = "beforeEnd",
      ui = paste0(txt, "\n", collapse = "")
    )

romainfrancois

#include <Rcpp.h>
using namespace Rcpp ;

template <typename T>
inline void set_item_impl( List& target, int i, const T& obj, CharacterVector& names, traits::true_type ){
    target[i] = obj.object ;
    names[i] = obj.name ;
}

template <typename T>

romainfrancois

#include <Rcpp.h>
using namespace Rcpp ;

template <typename T>
inline void set_item_impl( List& target, int i, const T& obj, CharacterVector& names, traits::true_type ){
    target[i] = obj.object ;
    names[i] = obj.name ;
}

template <typename T>