add mkdir, touch; tidy file structure

DESCRIPTION

@@ -13,8 +13,6 @@ Depends:
 import: 
     RoxygenNote: 6.1.0
 Imports:
-    lattice, 
-    xml2,
     ggplot2,
     jsonlite,
     magrittr,

NAMESPACE

@@ -80,6 +80,7 @@ export(last)
 export(listk)
 export(llply_par)
 export(make_date)
+export(make_datetime)
 export(make_dt)
 export(map)
 export(mapvalues)
@@ -88,6 +89,7 @@ export(match2)
 export(melt_list)
 export(melt_tree)
 export(merge_pdf)
+export(mkdir)
 export(mutate)
 export(obj.size)
 export(options_update)
@@ -109,7 +111,6 @@ export(set_dimnames)
 export(set_font)
 export(set_names)
 export(setwd_clip)
-export(sf_rect)
 export(showfig)
 export(smerge)
 export(split_data)
@@ -118,10 +119,10 @@ export(stat_sd)
 export(str_year)
 export(subl)
 export(tabular)
+export(touch)
 export(transpose)
 export(unique_length)
 export(upper_envelope)
-export(url_filezilla)
 export(which.isnull)
 export(which.na)
 export(which.notna)
@@ -174,6 +175,7 @@ importFrom(jsonlite,read_json)
 importFrom(jsonlite,write_json)
 importFrom(lubridate,days_in_month)
 importFrom(lubridate,make_date)
+importFrom(lubridate,make_datetime)
 importFrom(lubridate,yday)
 importFrom(lubridate,year)
 importFrom(lubridate,ymd)
@@ -211,7 +213,3 @@ importFrom(utils,modifyList)
 importFrom(utils,object.size)
 importFrom(utils,str)
 importFrom(utils,write.table)
-importFrom(xml2,read_xml)
-importFrom(xml2,xml_find_all)
-importFrom(xml2,xml_find_first)
-importFrom(xml2,xml_text)

R/cmd_func.R

@@ -102,16 +102,28 @@ dir.show <- function (path = getwd()) {
 #     FUN(file = file, width = width, height = height, ...)
 # }
 
-#' check_dir
+#' mkdir
+#' 
 #' @param path character vectors 
 #' 
 #' @importFrom foreach %do%
 #' @export
-check_dir <- function(path){
+mkdir <- function(path){
     for (path_i in unique(path)) {
        if (!dir.exists(path_i)) {
            dir.create(path_i, recursive = TRUE)
        }
     }
     path
 }
+
+#' @rdname mkdir
+#' @export
+check_dir <- mkdir
+
+#' @keywords internal
+#' @export
+touch <- function(file) {
+    mkdir(dirname(file))
+    writeLines("", file)
+}

R/reexports.R

@@ -45,10 +45,13 @@ data.table::is.data.table
 #' @export
 data.table::as.data.table
 
-#' @importFrom lubridate make_date days_in_month
+#' @importFrom lubridate make_date make_datetime days_in_month
 #' @export
 lubridate::make_date
 
+#' @export
+lubridate::make_datetime
+
 #' @export
 lubridate::days_in_month
 

R/tools.R

@@ -98,8 +98,7 @@ cut_plevels <- function(x, pvalue = c(0.01, 0.05, 0.1), verbose = FALSE) {
         c(-rev(.), 0, .)
 
     levels_num <- cut(1, pvalue2) %>%
-        levels() %>%
-        {
+        levels() %>% {
             c(rev(.[1:np]), rev(.[-(1:np)])) %>% rev()
         }
     levels_str <- c(

R/tools_sp.R

@@ -1,26 +1,3 @@
-
-#' sf_rect
-#' 
-#' @examples
-#' \dontrun{
-#' xlim = c(112, 115)
-#' ylim = c(21, 23)
-#' range <- c(xlim, ylim)
-#' poly = sf_rect(range)
-#' write_sf(poly, "poly.shp")
-#' }
-#' @export
-sf_rect <- function(range, crs = st_crs(4326)){
-    xlim = range[1:2]
-    ylim = range[3:4]
-    coors = matrix(c(xlim, rev(xlim), xlim[1], rep(ylim, each = 2), ylim[1]), ncol = 2)
-    pts = list(coors)
-    p <- st_polygon(list(coors)) #%T>% plot()
-    st_sfc(p, crs = crs)
-}
-
-# st_bbox(c(112, 115, 21, 23) %>% set_names(c("xmin", "xmax", "ymin", "ymax")), crs = st_crs(4326)) 
-
 #' write_sp2rgb
 #' 
 #' @param grid SpatialGridPixels or SpatialGridDataFrame object

README.Rmd

@@ -70,6 +70,7 @@ install.packages("../Ipaper_0.1.5.9000.tar.gz", repos = NULL, type = "source", d
 ### Base tools
 
 * `code`, `smerge`, `subl`, `github`: open app at assigned directory
+* `mkdir`, `touch`
 * `dir.show`: open at assigned directory in explorer
 * `runningId`: print the running ID in the console
 * `fprintf`: c style `fprintf`

README.md

@@ -63,6 +63,7 @@ After install, run `Ipaper::key_blind()` to make those shortcuts work.
 ### Base tools
 
 -   `code`, `smerge`, `subl`, `github`: open app at assigned directory
+-   `mkdir`, `touch`
 -   `dir.show`: open at assigned directory in explorer
 -   `runningId`: print the running ID in the console
 -   `fprintf`: c style `fprintf`